[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
	1	#!/usr/bin/perl
	2	use t::lib tests => 1;
	3
	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';