Bob Builder

@@ -18,9 +17,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; @@ -51,15 +50,23 @@ my ($expect, @ev); ($expect = $tmpl) =~ s/class="main"/class="foo"/; is( - run_for { $_->set_attribute({ name => 'class', value => 'foo' }) }, + run_for { $_->set_attribute( 'class' => 'foo' ) }, $expect, 'set attribute on existing attribute' ); +($expect = $tmpl) =~ s/name="cow" class="main"/name="bar" class="foo"/; + +is( + run_for { $_->set_attr({ 'class' => 'foo', 'name' => 'bar'}) }, + $expect, + 'set attributes using hashref form (shorthand)' +); + ($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/; is( - run_for { $_->set_attribute({ name => 'foo', value => 'bar' }) }, + run_for { $_->set_attribute( 'foo' => 'bar' ) }, $expect, 'set attribute on non existing attribute' ); @@ -67,15 +74,31 @@ is( ($expect = $tmpl) =~ s/class="main"/class="main foo"/; is( - run_for { $_->add_attribute({ name => 'class', value => 'foo' }) }, + run_for { $_->add_to_attribute( 'class' => 'foo' ) }, $expect, 'add attribute on existing attribute' ); +($expect = $tmpl) =~ s/class="main"/class="main foo"/; + +is( + run_for { $_->add_class('foo') }, + $expect, + 'add attribute on existing attribute (shorthand)' +); + +($expect = $tmpl) =~ s/class="main"/class="main" id="foo"/; + +is( + run_for { $_->set_id('foo') }, + $expect, + 'set_id (shorthand)' +); + ($expect = $tmpl) =~ s/class="main"/class="main" foo="bar"/; is( - run_for { $_->add_attribute({ name => 'foo', value => 'bar' }) }, + run_for { $_->add_to_attribute( 'foo' => 'bar' ) }, $expect, 'add attribute on non existing attribute' ); @@ -94,6 +117,72 @@ is( 'remove attribute on non existing attribute' ); +($expect = $tmpl) =~ s/class="main"/class=""/; + +is( + run_for { $_->remove_from_attribute({ class => 'main' }) }, + $expect, + 'remove name from attribute' +); + +($expect = $tmpl) =~ s/ class="main"//; + +is( + run_for { + $_->transform_attribute({ + name => 'class', + code => sub { + my $a = shift; + return if $a eq 'main'; + return $a; + }, + }) + }, + $expect, + 'transform_attribute deletes the attr if code returns undef', + ); + +($expect = $tmpl) =~ s/ class="main"/ class="moan"/; + +is( + run_for { + $_->transform_attribute({ + name => 'class', + code => sub { + ( my $b = shift ) =~ s/main/moan/; + $b + }, + }) + }, + $expect, + 'transform_attribute transforms something', + ); + +($expect = $tmpl) =~ s/ class="main"/ class="main" noggin="zonk"/; + +is( + run_for { + $_->transform_attribute({ + name => 'noggin', + code => sub { 'zonk' }, + }) + }, + $expect, + 'transform_attribute adds attribute if not there before', + ); + +is( + run_for { + $_->transform_attribute({ + name => 'noggin', + code => sub { }, + }) + }, + $tmpl, + 'transform_attribute on nonexistent att does not add it if code returns undef', + ); + + ($expect = $tmpl) =~ s/(?= 'TEXT', raw => 'O HAI' } ]; @@ -115,17 +204,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( @@ -150,7 +239,7 @@ is( is( HTML::Zoom::Producer::BuiltIn->html_from_events(\@ev), - '

+ '

Bob Builder

@@ -161,12 +250,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,7 +265,162 @@ is( Builder

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

O HAI

+ +', + '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;