]>
Commit | Line | Data |
---|---|---|
d161c455 TB |
1 | # This might look like shell script, but it's actually -*- perl -*- |
2 | use strict;use warnings; | |
3 | use lib qw(t/ t/m/); | |
4 | ||
5 | use File::Slurp; | |
271d5078 | 6 | use Test::More; |
d161c455 TB |
7 | |
8 | use TestUtils; | |
9 | use HTML::TreeBuilder; | |
10 | use HTML::Element::Library; | |
70669dc1 | 11 | use Test::XML; |
d161c455 TB |
12 | |
13 | sub tage { | |
14 | ||
15 | my $root = "t/html/crunch/crunch"; | |
16 | ||
17 | my $tree = HTML::TreeBuilder->new_from_file("$root.initial")->guts; | |
18 | ||
19 | ||
20 | $tree->crunch(look_down => [ class => 'imageElement' ], leave => 1); | |
21 | ||
bd96fdbe TB |
22 | my $generated_html = strip_ws ( ptree($tree, "$root.gen") ); |
23 | # must put read_file() in scalar context so that a string instead of first line is returned. | |
24 | my $expected_html = strip_ws(scalar File::Slurp::read_file("$root.exp")); | |
d161c455 | 25 | |
bd96fdbe TB |
26 | #warn "g:$generated_html"; |
27 | #warn "e:$expected_html"; | |
28 | ||
29 | is ($generated_html, $expected_html, "HTML for crunch"); | |
d161c455 TB |
30 | } |
31 | ||
32 | ||
33 | tage(); | |
34 | ||
271d5078 | 35 | done_testing; |