Refactor tests (second pass)

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

deleted file mode 100644 (file)

index 654e656..0000000
--- a/t/prune.t
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/usr/bin/perl -T
-use lib '.';
-use t::lib tests => 1;
-
-my $root = HTML::TreeBuilder->new_from_content(<<'EOHTML');
-<html>
-<head>
-  <title></title>
-</head>
-<body>
-  <div>There was man named Jed</div>
-<div>He did not have a head</div>
-<div>He lived beneath a sled</div>
-<div>Now he's afraid of Fred...</div>
-<div>
-</div>
-    </body>
-</html>
-EOHTML
-
-$root->prune;
-
-my $expected = '
-<html>
-<body>
-<div>There was man named Jed</div><div>He did not have a head</div><div>He lived beneath a sled</div><div>Now he&#39;s afraid of Fred...</div> </body>   
-</html>
-';
-
-isxml($root, \$expected, 'prune');