Refactor tests (first pass)

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

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

my $root = 't/html/table2';
my $d    = data::table2->load_data;
my $tree = mktree 't/html/table2.html';

for my $dataset (keys %$d) {
	my %tbody = ('4dig' => 0, '3dig' => 1);
	$tree->table2 (
		debug => $ENV{TEST_VERBOSE},
		table_data => $d->{$dataset},
		tr_base_id => $dataset,
		tr_ld => sub {
			my $t = shift;
			my $tbody = ($t->look_down('_tag' => 'tbody'))[$tbody{$dataset}];
			my @tbody_child = $tbody->content_list;
			$tbody_child[$_]->detach for (1 .. $#tbody_child) ;
			$tbody->content_list;
		},
		td_proc => sub {
			my ($tr, $data) = @_;
			my @td = $tr->look_down('_tag' => 'td');
			for my $i (0..$#td) {
				#	warn $i;
				$td[$i]->splice_content(0, 1, $data->[$i]);
			}
		}
	);
}

isxml $tree, 't/html/table2.exp', 'table2';