Refactor tests (second pass)

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

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