]> iEval git - html-element-library.git/blobdiff - t/m/TestUtils.pm
Fix tests
[html-element-library.git] / t / m / TestUtils.pm
diff --git a/t/m/TestUtils.pm b/t/m/TestUtils.pm
deleted file mode 100644 (file)
index e5f2b69..0000000
+++ /dev/null
@@ -1,31 +0,0 @@
-package TestUtils;
-
-use HTML::PrettyPrinter;
-use FileHandle;
-use File::Slurp;
-
-use Carp qw(carp cluck croak confess);
-
-require Exporter;
-@ISA=qw(Exporter);
-@EXPORT = qw(ptree html_dir);
-
-sub html_dir {
-  't/html/'
-}
-
-sub ptree {
-  my $tree = shift or confess 'must supply tree';
-  my $out = shift or confess '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;
-}
-
-
-
-1;
This page took 0.020976 seconds and 4 git commands to generate.