The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
JJNAPIORK / HTML-Zoom-0.009009 / t / bugs / void.t 
use strictures 1;
use Test::More skip_all => 'TODO test';

use HTML::Zoom;

my $tmpl = <<END;
<body>
  <input class="main"/>
</body>
END

my $tmpl2 = <<END;
<body>
  <div>cluck</div><input class="main"/>
</body>
END

my $z = HTML::Zoom->from_html($tmpl);

my $count = 0;
$z->select('input')->collect({
  filter => sub { $count++; $_ },
  passthrough => 1,
})->run;

is($count, 1,"collect on void");

is(
  $z->select('input')
  ->add_before(\"<div>cluck</div>")
  ->to_html, $tmpl2,
"added before void");

done_testing;