[catagits/HTML-Zoom.git] / t / bugs / after_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);
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);
	19	is(
	20	$z->select('input')
	21	->add_before(\"<div>cluck</div>")
	22	->to_html, $tmpl2,
	23	"added before void");
	24
	25	done_testing;