Fix tests

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

diff --git a/t/fillinform.t b/t/fillinform.t
index 3a6c0f293de35487bef8770ad1957e4e21e295d3..d989f4e4c2c3ac14c1b7f810545f647c190c1619 100644 (file)
--- a/t/fillinform.t
+++ b/t/fillinform.t
@@ -1,13 +1,12 @@
 # This might look like shell script, but it's actually -*- perl -*-
 use strict;use warnings;
-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 {
 
@@ -19,9 +18,7 @@ sub tage {
 
   my $new_tree = HTML::TreeBuilder->new_from_content( $tree->fillinform(\%data) ) ;
 
-  my $generated_html = ptree($new_tree, "$root.gen");
-
-  is ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for fillinform");
+  is_xml ($new_tree->as_XML, scalar File::Slurp::read_file("$root.exp"), "HTML for fillinform");
 }