added strip whitespace function to make html comparision work across OSes

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

package TestUtils;

use HTML::PrettyPrinter;
use FileHandle;
use File::Slurp;

require Exporter;
@ISA=qw(Exporter);
@EXPORT = qw(ptree html_dir strip_ws);

sub html_dir {
  't/html/'
}

sub ptree {
  my $tree = shift or die 'must supply tree';
  my $out = shift or die 'must supply outfile';
  
  my $hpp = HTML::PrettyPrinter->new
    (tabify => 0, allow_forced_nl => 1, quote_attr => 1);
  my $lines = $hpp->format($tree);
  
  write_file $out, @$lines;
  join '', @$lines;
}

sub strip_ws {
  my($str)=@_;

  $str =~ s/\s+//g;
  $str;
}


1;