Refactor tests (first pass)

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

diff --git a/t/table2-table_ld.t b/t/table2-table_ld.t
index c53735a8bf93ea5b7f306c73f819e7285ec9a7eb..1a359daff1a8b3dd54d86e2649140589330afc7e 100644 (file)
--- a/t/table2-table_ld.t
+++ b/t/table2-table_ld.t
@@ -1,65 +1,43 @@
-# This might look like shell script, but it's actually -*- perl -*-
+#!/usr/bin/perl
 # Test the 3 possible look_down calls to table2()
 #   a = default
 #   b = supplied array ref
 #   c = supplied code ref
-
-use strict;
+use t::lib tests => 3;
 use lib qw(t/ t/m/);
-
-
-use File::Slurp;
-use Test::More;
-
-use HTML::TreeBuilder;
-use HTML::Element::Library;
-use Test::XML;
-
 use data::table2;
 
-
 my $o    = data::table2->new;
 
 # a - default table_ld
 
-my $root = 't/html/table2';
-my $tree = HTML::TreeBuilder->new_from_file("$root.html");
-
+my $tree = mktree 't/html/table2.html';
 
 my $table = HTML::Element::Library::ref_or_ld(
-  $tree,
-  ['_tag' => 'table']
- );
+       $tree,
+       ['_tag' => 'table']
+);
 
-is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
+isxml $table, 't/html/table2-table_ld.exp', 'table2 look_down default';
 
 # b - arrayref table_ld
 
-$tree = HTML::TreeBuilder->new_from_file("$root.html");
-
-
 $table = HTML::Element::Library::ref_or_ld(
-  $tree,
-  [frame => 'hsides', rules => 'groups']
+       $tree,
+       [frame => 'hsides', rules => 'groups']
  );
 
-is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
+isxml $table, 't/html/table2-table_ld.exp', 'table2 look_down arrayref';
 
 # c - coderef table_ld
 
-$tree = HTML::TreeBuilder->new_from_file("$root.html");
-
-
 $table = HTML::Element::Library::ref_or_ld(
-  $tree,
-  sub {
-    my ($t) = @_;
-    my $caption = $t->look_down('_tag' => 'caption');
-    $caption->parent;
-  }
- );
-
-is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
-
-
-done_testing;
+       $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';