added strip whitespace function to make html comparision work across OSes

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

diff --git a/t/crunch.t b/t/crunch.t
index 00f79472db25f0f669349f863b926f3cb8458425..383d5ed807dd90241a440502ab69cd61e19237ca 100644 (file)
--- a/t/crunch.t
+++ b/t/crunch.t
@@ -19,9 +19,14 @@ sub tage {
 
   $tree->crunch(look_down => [ class => 'imageElement' ], leave => 1);
 
-  my $generated_html = ptree($tree, "$root.gen");
+  my $generated_html = strip_ws ( ptree($tree, "$root.gen") );
+  # must put read_file() in scalar context so that a string instead of first line is returned.
+  my $expected_html = strip_ws(scalar File::Slurp::read_file("$root.exp"));
 
-  is_xml ($generated_html, File::Slurp::read_file("$root.exp"), "HTML for crunch");
+  #warn "g:$generated_html";
+  #warn "e:$expected_html";
+
+  is ($generated_html, $expected_html, "HTML for crunch");
 }