]> iEval git - html-element-library.git/blobdiff - t/dual_iter.t
Fix tests
[html-element-library.git] / t / dual_iter.t
index dfe5b2f54b8dd9264acb29c0bc1a0e9cbb93224c..dbcfb28adf0f5159c44b17c1b98f1240634b979e 100644 (file)
@@ -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;
 
 # this is a simpler call to iter2()
 
@@ -47,7 +46,6 @@ $tree->iter2(
 
  );
 
-  my $generated_html = ptree($tree, "$root.gen");
 
-  is ($generated_html, File::Slurp::read_file("$root.exp"), 
-      "HTML for generated li");
+  is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), 
+      "XML for generated li");
This page took 0.022326 seconds and 4 git commands to generate.