diff options
Diffstat (limited to 'cpan/Pod-Simple/t/fcodes.t')
| -rw-r--r-- | cpan/Pod-Simple/t/fcodes.t | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/cpan/Pod-Simple/t/fcodes.t b/cpan/Pod-Simple/t/fcodes.t index 02e2a27ee1..7dbf14bcfb 100644 --- a/cpan/Pod-Simple/t/fcodes.t +++ b/cpan/Pod-Simple/t/fcodes.t @@ -7,7 +7,7 @@ BEGIN { use strict; use Test; -BEGIN { plan tests => 18 }; +BEGIN { plan tests => 21 }; #use Pod::Simple::Debug (5); @@ -81,14 +81,24 @@ ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< a >>C<<< b >>>I<<<< c >>>>B<< d print "# Without any nesting, but with Z's, and odder whitespace...\n"; ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>b >>>I<<<< c >>>>B<< d \t >>X<<\ne >>\n"), - '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>' + '<Document><Para><F>aZ<></F><C>Z<>b</C><I>c</I><B>d</B><X>e</X></Para></Document>' ); print "# With nesting and Z's, and odder whitespace...\n"; ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>bZ<>B<< d \t >>X<<\ne >> >>>I<<<< c >>>>\n"), - '<Document><Para><F>a</F><C>b<B>d</B><X>e</X></C><I>c</I></Para></Document>' + "<Document><Para><F>aZ<></F><C>Z<>bZ<>B<< d >>X<< e >></C><I>c</I></Para></Document>" ); +print "# Regression https://rt.cpan.org/Ticket/Display.html?id=12239\n"; +ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< foo->bar >>>\n"), + '<Document><Para><C>foo->bar</C></Para></Document>' +); +ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< C<foo> >>>\n"), + '<Document><Para><C>C<foo></C></Para></Document>' +); +ok( Pod::Simple::XMLOutStream->_out("=pod\n\nC<<< C<<foo>> >>>\n"), + '<Document><Para><C>C<<foo>></C></Para></Document>' +); print "# Misc...\n"; ok( Pod::Simple::XMLOutStream->_out( |