projects
/
catagits/HTML-Zoom.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
(with skip)
[catagits/HTML-Zoom.git]
/
t
/
bugs
/
after_void.t
1
use strictures 1;
2
use Test::More skip_all => 'TODO test';
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;