Fix tests

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

diff --git a/t/highlander2.t b/t/highlander2.t
index 479553f6a9f75b940c89fa38e04b6bd532f41bb8..c145b6859b8601f0153999a5ddd475d8890a4d2e 100644 (file)
--- a/t/highlander2.t
+++ b/t/highlander2.t
@@ -1,13 +1,12 @@
 # This might look like shell script, but it's actually -*- perl -*-
 use strict;
-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;
 
 sub replace_age { 
   my $branch = shift;
@@ -41,9 +40,8 @@ sub tage {
 
   my $root = "t/html/highlander2-$age";
 
-  my $generated_html = ptree($tree, "$root.gen");
-
-  is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for $age");
+  local $_; # XML::Parser does not like read-only $_ (RT #101129)
+  is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), "HTML for $age");
 }