t/bugs/after_void.t

   1 use strictures 1;
   2 use Test::More;
   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;