->as_HTML behavior changed in HTML::Tree between 3.23 and 4.1... now 4.1 is required
authorTerrence Brannon <metaperl@gmail.com>
Tue, 22 Mar 2011 08:19:28 +0000 (04:19 -0400)
committerTerrence Brannon <metaperl@gmail.com>
Tue, 22 Mar 2011 08:19:28 +0000 (04:19 -0400)
Makefile.PL
lib/HTML/Element/Library.pm
t/replace_content.t
t/set_child_content.t
t/wrap_content.t

index 6831d2896e726cf722ac9e91a5c2d5f9e2e2ba31..27f6eb464f89ca91ee47e6602e439b524996a363 100644 (file)
@@ -15,7 +15,7 @@ WriteMakefile
 
     HTML::FillInForm => 0,
     HTML::PrettyPrinter   => 0.03,
-    HTML::Tree            => 3.19,
+    HTML::Tree            => 4.1,
 
     List::Rotation::Cycle => 1.003,
     List::MoreUtils       => 0.09,
index 3a666cdc3808d4783e974ef7e2fed492b49ae822..dbbd62ea63b0dbd87e2478827820b80057348d45 100644 (file)
@@ -25,7 +25,7 @@ our @EXPORT      = qw();
 
 
 
-our $VERSION = '4.2.c';
+our $VERSION = '4.3';
 
 
 
index f8145990e6c9dd8e9ce85a26a2c61843b7c1b823..40b0b7e0af1854d0486752313fe3726f70c93158 100644 (file)
@@ -27,7 +27,6 @@ $t1 = HTML::Element->new_from_lol
 
 
 $t1->look_down('_tag' => 'body')->replace_content('all gone!');
-is( $t1->as_HTML, '<html><head><title>I like stuff!</title></head><body lang="en-JP">all gone!</body></html>
-', "replaced all of body");
+is( $t1->as_HTML, '<html><head><title>I like stuff!</title></head><body lang="en-JP">all gone!</body></html>', "replaced all of body");
 
 
index dd6673af61e0e28d18180ce3a26dc4c07a71b678..231ce7adecea04fafae9a5c19b055c7bb5864683 100644 (file)
@@ -28,7 +28,6 @@ $t1 = HTML::Element->new_from_lol
 
 #$t1->look_down('_tag' => 'body')->replace_content('all gone!');
 $t1->set_child_content(id => 'corpus', 'all gone!');
-is( $t1->as_HTML, '<html><head><title>I like stuff!</title></head><body id="corpus" lang="en-JP">all gone!</body></html>
-', "replaced all of body");
+is( $t1->as_HTML, '<html><head><title>I like stuff!</title></head><body id="corpus" lang="en-JP">all gone!</body></html>', "replaced all of body");
 
 
index d81abe8c547c63ab7743d459602049b769cd7d3a..976420e2047f64180e9551c50892d709ff870185 100644 (file)
@@ -33,7 +33,6 @@ my $bold = HTML::Element->new('b', id => 'wrapper');
 
 my $W = $t1->look_down('id' => 'wrapme');
 $W->wrap_content($bold);
-is( $W->as_HTML, '<span id="wrapme"><b id="wrapper">um, p &lt; 4!</b></span>
-', "wrapped text");
+is( $W->as_HTML, '<span id="wrapme"><b id="wrapper">um, p &lt; 4!</b></span>', "wrapped text");
 
 
This page took 0.012685 seconds and 4 git commands to generate.