Refactor tests (first pass)

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

#!/usr/bin/perl
# Test the 3 possible look_down calls to table2()
#   a = default
#   b = supplied array ref
#   c = supplied code ref
use t::lib tests => 3;
use lib qw(t/ t/m/);
use data::table2;

my $o    = data::table2->new;

# a - default table_ld

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

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

isxml $table, 't/html/table2-table_ld.exp', 'table2 look_down default';

# b - arrayref table_ld

$table = HTML::Element::Library::ref_or_ld(
	$tree,
	[frame => 'hsides', rules => 'groups']
 );

isxml $table, 't/html/table2-table_ld.exp', 'table2 look_down arrayref';

# c - coderef table_ld

$table = HTML::Element::Library::ref_or_ld(
	$tree,
	sub {
		my ($t) = @_;
		my $caption = $t->look_down('_tag' => 'caption');
		$caption->parent;
	}
);

isxml $table, 't/html/table2-table_ld.exp', 'table2 look_down coderef';