[html-element-library.git] / t / crunch.t

#!/usr/bin/perl
use t::lib tests => 1;

my $tree = mktree 't/html/crunch.html';
$tree->crunch(look_down => [ class => 'imageElement' ], leave => 1);
isxml $tree, 't/html/crunch.exp', 'crunch';
Commit	Line	Data
aa016126 MG	1	#!/usr/bin/perl
aa016126 MG	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';