added strip whitespace function to make html comparision work across OSes

[html-element-library.git] / t / TestUtils.pm

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;