Refactor tests (first pass)

[html-element-library.git] / t / table2-tr_ld.t

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

# a - default table_ld

my $tree = mktree 't/html/table2.html';

my @tr = HTML::Element::Library::ref_or_ld(
	$tree,
	['_tag' => 'tr']
);

is (scalar @tr, 16, 'table2 tr look_down (default)');

# b - arrayref tr_ld

$tree = mktree 't/html/table2-tr_ld-arrayref.html';

my $tr = HTML::Element::Library::ref_or_ld(
	$tree,
	[class => 'findMe']
);

isxml $tr, 't/html/table2-tr_ld-arrayref.exp', 'table2 tr look_down (arrayref)';

# c - coderef tr_ld
# removes windows listings before returning @tr

$tree = mktree 't/html/table2.html';

@tr = HTML::Element::Library::ref_or_ld(
	$tree,
	sub {
		my ($t) = @_;
		my @tr = $t->look_down('_tag' => 'tr');
		my @keep;
		for my $tr (@tr) {

			my @td = $tr->look_down ('_tag' => 'td') ;
			my $detached;
			for my $td (@td) {
				if (grep { $_ =~ /Windows/ } $td->content_list) {
					$tr->detach;
					++$detached;
					last;
				}
			}
			push @keep, $tr unless $detached;
		}
		@keep;
	}
);

isxml $tree, 't/html/table2-tr_ld-coderef.exp', 'table2 tr look_down (coderef)';