Fix tests

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

diff --git a/t/table2-table_ld.t b/t/table2-table_ld.t
index 3b3942b40d2f05d71894120df2288a02688b14e4..c53735a8bf93ea5b7f306c73f819e7285ec9a7eb 100644 (file)
--- a/t/table2-table_ld.t
+++ b/t/table2-table_ld.t
@@ -11,9 +11,9 @@ use lib qw(t/ t/m/);
 use File::Slurp;
 use Test::More;
 
-use TestUtils;
 use HTML::TreeBuilder;
 use HTML::Element::Library;
+use Test::XML;
 
 use data::table2;
 
@@ -22,7 +22,7 @@ my $o    = data::table2->new;
 
 # a - default table_ld
 
-my $root = 't/html/table2-table_ld-default';
+my $root = 't/html/table2';
 my $tree = HTML::TreeBuilder->new_from_file("$root.html");
 
 
@@ -31,13 +31,10 @@ my $table = HTML::Element::Library::ref_or_ld(
   ['_tag' => 'table']
  );
 
-my $generated_html = ptree($table, "$root.gen");
-
-is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
+is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
 
 # b - arrayref table_ld
 
-$root = 't/html/table2-table_ld-arrayref';
 $tree = HTML::TreeBuilder->new_from_file("$root.html");
 
 
@@ -46,13 +43,10 @@ $table = HTML::Element::Library::ref_or_ld(
   [frame => 'hsides', rules => 'groups']
  );
 
-$generated_html = ptree($table, "$root.gen");
-
-is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
+is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
 
 # c - coderef table_ld
 
-$root = 't/html/table2-table_ld-coderef';
 $tree = HTML::TreeBuilder->new_from_file("$root.html");
 
 
@@ -65,9 +59,7 @@ $table = HTML::Element::Library::ref_or_ld(
   }
  );
 
-$generated_html = ptree($table, "$root.gen");
-
-is ($generated_html, File::Slurp::read_file("$root.exp"), $root);
+is_xml ($table->as_XML, scalar File::Slurp::read_file("$root-table_ld.exp"), $root);
 
 
 done_testing;