Refactor tests (first pass)

[html-element-library.git] / t / prune.t
diff --git a/t/prune.t b/t/prune.t

index af343dbde03d96b9285610f6345d6c0c166897cd..654e6561d4540015ecdc7bb3b9da380400fb3629 100644 (file)
--- a/t/prune.t
+++ b/t/prune.t
@@ -1,22 +1,9 @@
  #!/usr/bin/perl -T
+use lib '.';
+use t::lib tests => 1;
  
-
-use warnings;
-use strict;
-
-use Test::More;
-use Test::XML;
-
-BEGIN {
-    use_ok('HTML::TreeBuilder');
-    use_ok('HTML::Element::Library');
-}
-
-
-
-my $root = HTML::TreeBuilder->new();
-my $html =<<'EOHTML';
-<html>    
+my $root = HTML::TreeBuilder->new_from_content(<<'EOHTML');
+<html>
  <head>
    <title></title>
  </head>
@@ -31,8 +18,6 @@ my $html =<<'EOHTML';
  </html>
  EOHTML
  
-$root->parse($html);
-$root->delete_ignorable_whitespace;
  $root->prune;
  
  my $expected = '
@@ -42,10 +27,4 @@ my $expected = '
  </html>
  ';
  
-#warn sprintf 'HTML:%s:HTML', $root->as_HTML;
-
-is_xml($root->as_HTML, $expected, 'test pruning');
-
-
-
-done_testing;
+isxml($root, \$expected, 'prune');