]>
Commit | Line | Data |
---|---|---|
aa016126 MG |
1 | #!/usr/bin/perl |
2 | use t::lib tests => 1; | |
d161c455 | 3 | |
aa016126 MG |
4 | my $tree = mktree 't/html/crunch.html'; |
5 | $tree->crunch(look_down => [ class => 'imageElement' ], leave => 1); | |
6 | isxml $tree, 't/html/crunch.exp', 'crunch'; |