Refactor tests (second pass)

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

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