Fix tests

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

diff --git a/t/highlander.t b/t/highlander.t
index 061cc5f4dcbdbfb85f1708d1bdb3d7aa7413e2a0..e9f754c057738ea4074a72ed3a799074610594d3 100644 (file)
--- a/t/highlander.t
+++ b/t/highlander.t
@@ -1,14 +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 tage {
   my $age = shift;
@@ -27,9 +25,8 @@ sub tage {
 
   my $root = "t/html/highlander-$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"), "XML for $age");
 }