X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Factions.t;h=584ec36fa31f1b339b1ad8e428ede7e4f11c4d97;hb=8af6dead371dda2793a0649592cfa0dcf905e5bc;hp=f369b1364e970eda5bebe79652621c05b350ac43;hpb=11cc25dd4b8378ed73eb43b140d97460abde0c62;p=catagits%2FHTML-Zoom.git diff --git a/t/actions.t b/t/actions.t index f369b13..584ec36 100644 --- a/t/actions.t +++ b/t/actions.t @@ -18,9 +18,9 @@ my $tmpl = < END -sub src_stream { HTML::Zoom::Parser::BuiltIn->html_to_stream($tmpl); } +sub src_stream { HTML::Zoom::Parser::BuiltIn->new->html_to_stream($tmpl); } -sub html_sink { HTML::Zoom::Producer::BuiltIn->html_from_stream($_[0]) } +sub html_sink { HTML::Zoom::Producer::BuiltIn->new->html_from_stream($_[0]) } my $fb = HTML::Zoom::FilterBuilder->new; @@ -67,7 +67,7 @@ is( ($expect = $tmpl) =~ s/class="main"/class="main foo"/; is( - run_for { $_->add_attribute({ name => 'class', value => 'foo' }) }, + run_for { $_->add_to_attribute({ name => 'class', value => 'foo' }) }, $expect, 'add attribute on existing attribute' ); @@ -75,7 +75,7 @@ is( ($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/; is( - run_for { $_->add_attribute({ name => 'foo', value => 'bar' }) }, + run_for { $_->add_to_attribute({ name => 'foo', value => 'bar' }) }, $expect, 'add attribute on non existing attribute' ); @@ -115,17 +115,17 @@ is( ($expect = $tmpl) =~ s/(?<=class="main">)/O HAI/; is( - run_for { $_->prepend_inside($ohai) }, + run_for { $_->prepend_content($ohai) }, $expect, - 'prepend_inside ok' + 'prepend_content ok' ); ($expect = $tmpl) =~ s/

O HAI<\/hr>/; is( - (run_for { $_->prepend_inside($ohai) } 'hr'), + (run_for { $_->prepend_content($ohai) } 'hr'), $expect, - 'prepend_inside ok with in place close' + 'prepend_content ok with in place close' ); is( @@ -161,12 +161,12 @@ is( @ev = (); is( - run_for { $_->collect({ into => \@ev, inside => 1 }) }, + run_for { $_->collect({ into => \@ev, content => 1 }) }, '

', - 'collect w/inside removes correctly' + 'collect w/content removes correctly' ); is( @@ -176,16 +176,162 @@ is( Builder

', - 'collect w/inside collects correctly' + 'collect w/content collects correctly' ); is( - run_for { $_->replace($ohai, { inside => 1 }) }, + run_for { $_->replace($ohai, { content => 1 }) }, '

O HAI

', - 'replace w/inside' + 'replace w/content' +); + +($expect = $tmpl) =~ s/(?=<\/div>)/O HAI/; + +is( + run_for { $_->append_content($ohai) }, + $expect, + 'append content ok' +); + +my $r_content = sub { my $r = shift; sub { $_->replace($r, { content => 1 }) } }; + +is( + run_for { + $_->repeat( + [ + sub { + filter + filter($_ => '.name' => $r_content->('mst')) + => '.career' => $r_content->('Chainsaw Wielder') + }, + sub { + filter + filter($_ => '.name' => $r_content->('mdk')) + => '.career' => $r_content->('Adminion') + }, + ] + ) + }, + q{ +

+ mst + Chainsaw Wielder +

+ mdk + Adminion +

+ +}, + 'repeat ok' +); + +is( + run_for { + $_->repeat_content( + [ + sub { + filter + filter($_ => '.name' => $r_content->('mst')) + => '.career' => $r_content->('Chainsaw Wielder') + }, + sub { + filter + filter($_ => '.name' => $r_content->('mdk')) + => '.career' => $r_content->('Adminion') + }, + ] + ) + }, + q{ +

+ mst + Chainsaw Wielder +

+ + mdk + Adminion +

+ +}, + 'repeat_content ok' +); + +is( + run_for { + my @between; + $_->repeat_content( + [ + sub { + HTML::Zoom::ArrayStream->new({ array => [ + (filter + filter($_ => '.name' => $r_content->('mst')) + => '.career' => $r_content->('Chainsaw Wielder')), + HTML::Zoom::ArrayStream->new({ array => \@between }) + ] })->flatten + }, + sub { + filter + filter($_ => '.name' => $r_content->('mdk')) + => '.career' => $r_content->('Adminion') + }, + ], + { filter => sub { + filter $_[0] => 'hr' => sub { $_->collect({ into => \@between }) } + } + } + ) + }, + q{ +

+ mst + Chainsaw Wielder +

+ mdk + Adminion + +

+ +}, + 'repeat_content with filter ok' +); + +is( + run_for { + my @between; + $_->repeat_content( + [ + sub { + filter + filter($_ => '.name' => $r_content->('mst')) + => '.career' => $r_content->('Chainsaw Wielder') + }, + sub { + filter + filter($_ => '.name' => $r_content->('mdk')) + => '.career' => $r_content->('Adminion') + }, + ], + { repeat_between => 'hr' } + ) + }, + q{ +

+ mst + Chainsaw Wielder +

+ mdk + Adminion + +

+ +}, + 'repeat_content using repeat_between ok' ); done_testing;