X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2Ftable2.t;fp=t%2Ftable2.t;h=0000000000000000000000000000000000000000;hb=c337c4041b557cec7e74654ccd503016ee3a4348;hp=3566c63da5eafba825f7eb455ae9f1245418daa6;hpb=aa0161264c67d7802e79492b05aff88533d79d20;p=html-element-library.git

diff --git a/t/table2.t b/t/table2.t
deleted file mode 100644
index 3566c63..0000000
--- a/t/table2.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/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';