added strip whitespace function to make html comparision work across OSes

diff --git a/t/TestUtils.pm b/t/TestUtils.pm
index e2d22228d8a70025d94c436735022531687f98a6..e4bb274a04e52e1c826c318b3cbfa3386e11bec3 100644 (file)
--- a/t/TestUtils.pm
+++ b/t/TestUtils.pm
@@ -6,7 +6,7 @@ use File::Slurp;
 
 require Exporter;
 @ISA=qw(Exporter);
-@EXPORT = qw(ptree html_dir);
+@EXPORT = qw(ptree html_dir strip_ws);
 
 sub html_dir {
   't/html/'
@@ -24,6 +24,12 @@ sub ptree {
   join '', @$lines;
 }
 
+sub strip_ws {
+  my($str)=@_;
+
+  $str =~ s/\s+//g;
+  $str;
+}
 
 
 1;

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");
 }