Fix tests

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

diff --git a/t/table2-tr_ld.t b/t/table2-tr_ld.t
index 8e364ec4c0e86236d78c82d54edf40147a27cddf..6e01c51bce21f5761559b8b43603d3ad447621a2 100644 (file)
--- a/t/table2-tr_ld.t
+++ b/t/table2-tr_ld.t
@@ -11,10 +11,10 @@ use lib qw(t/ t/m/);
 use File::Slurp;
 use Test::More qw(no_plan);
 
-use TestUtils;
 use HTML::TreeBuilder;
 use HTML::Element::Library;
 use Scalar::Listify;
+use Test::XML;
 
 use data::table2;
 
@@ -23,7 +23,7 @@ my $o    = data::table2->new;
 
 # a - default table_ld
 
-my $root = 't/html/table2-tr_ld-default';
+my $root = 't/html/table2';
 my $tree = HTML::TreeBuilder->new_from_file("$root.html");
 
 
@@ -45,14 +45,12 @@ my $tr = HTML::Element::Library::ref_or_ld(
   [class => 'findMe']
  );
 
-my $generated_html = ptree($tr, "$root.gen");
-
-is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
+is_xml ($tr->as_XML, scalar File::Slurp::read_file("$root.exp"), $root);
 
 # c - coderef tr_ld
 # removes windows listings before returning @tr
 
-$root = 't/html/table2-tr_ld-coderef';
+$root = 't/html/table2';
 $tree = HTML::TreeBuilder->new_from_file("$root.html");
 
 
@@ -81,7 +79,4 @@ $tree = HTML::TreeBuilder->new_from_file("$root.html");
 
 #warn $_->as_HTML, $/ for @tr;
 
-$generated_html = ptree($tree, "$root.gen");
-
-is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
-
+is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root-tr_ld-coderef.exp"), $root);