Fix tests

[html-element-library.git] / t / unroll_select.t

diff --git a/t/unroll_select.t b/t/unroll_select.t
index 90b87b7e0d6f339e64e86a840a3df103e5028801..a21c712fbe05d9cbd715e683a3c75301ce2c68dd 100644 (file)
--- a/t/unroll_select.t
+++ b/t/unroll_select.t
@@ -6,9 +6,9 @@ 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 Test::XML;
 
 use SelectData;
 
@@ -27,7 +27,5 @@ $tree->unroll_select
    data_iter        => sub { my $data = shift; shift @$data }
   );
 
-  my $generated_html = ptree($tree, "$root.gen");
-
-  is ($generated_html, File::Slurp::read_file("$root.exp"), 
+is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), 
       "HTML for non-alternating table");