use Test::More;
use Test::XML;
-use TestUtils;
-
use Data::Dumper;
use HTML::TreeBuilder;
use HTML::Element::Library;
+use Test::XML;
use data::table2;
}
-my $generated_html = ptree($tree, "$root.gen");
-
-is($generated_html, File::Slurp::read_file("$root.exp"), 'genhtml');
+is_xml ($tree->as_XML, scalar File::Slurp::read_file("$root.exp"), 'genhtml');
done_testing;