Fix tests

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

diff --git a/t/hashmap.t b/t/hashmap.t
index 285f64c6fa272fa1d018561e6a45568c4c727bae..9ed28641c89cb8af7867b0e6a99e8fd4f6794a2d 100644 (file)
--- a/t/hashmap.t
+++ b/t/hashmap.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;
@@ -29,15 +28,11 @@ sub tage {
   $tree->hash_map
     (hash    => \%data, 
      to_attr => 'sid', 
-     excluding => [ 'email' ],
-     debug   => 1
+     excluding => [ 'email' ]
     );
 
-  my $generated_html = ptree($tree, "$root.gen");
-
-  is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for same_as");
+  is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), "XML for same_as");
 }
 
 
 tage();
-