+++ /dev/null
-#!/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';