Fixes for Pod-HTML tests after Pod-Simple update
authorJames E Keenan <jkeenan@cpan.org>
Tue, 13 Jan 2015 00:57:12 +0000 (19:57 -0500)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sun, 18 Jan 2015 12:22:43 +0000 (12:22 +0000)
Patch supplied by theory.

Signed-off-by: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
ext/Pod-Html/t/htmlview.t
ext/Pod-Html/t/pod2html-lib.pl

index 792df93..06914d1 100644 (file)
@@ -193,11 +193,11 @@ blah blah
 
 <p>intermediate text</p>
 
-
-
 <more>
 HTML
-</more>some text
+</more>
+
+some text
 
 <h1 id="TESTING-URLs-hyperlinking">TESTING URLs hyperlinking</h1>
 
index 42cf1c9..27e3e94 100644 (file)
@@ -64,6 +64,10 @@ sub convert_n_test {
        if (ord("A") == 193) { # EBCDIC.
            $expect =~ s/item_mat_3c_21_3e/item_mat_4c_5a_6e/;
        }
+    if (Pod::Simple->VERSION > 3.28) {
+        $expect =~ s/\n\n(some html)/$1/m;
+        $expect =~ s{(TESTING FOR AND BEGIN</h1>)\n\n}{$1}m;
+    }
 
        # result
        open my $in, $outfile or die "cannot open $outfile: $!";