[catagits/HTML-Zoom.git] / 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;
Commit	Line	Data
533bdc1b	1	use strictures 1;
9524c2f1	2	use Test::More skip_all => 'TODO test';
533bdc1b	3
	4	use HTML::Zoom;
	5
	6	my $tmpl = <<END;
	7	<body>
	8	<input class="main"/>
	9	</body>
	10	END
	11
	12	my $tmpl2 = <<END;
	13	<body>
	14	<div>cluck</div><input class="main"/>
	15	</body>
	16	END
	17
	18	my $z = HTML::Zoom->from_html($tmpl);
e1d0e35c	19
	20	my $count = 0;
	21	$z->select('input')->collect({
	22	filter => sub { $count++; $_ },
	23	passthrough => 1,
	24	})->run;
	25
	26	is($count, 1,"collect on void");
	27
533bdc1b	28	is(
	29	$z->select('input')
	30	->add_before(\"<div>cluck</div>")
	31	->to_html, $tmpl2,
	32	"added before void");
	33
	34	done_testing;