Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Demonstrate a regression when C<> is used in a =headN block

  • Loading branch information...
commit 61e34526402cffe78d7b351a41b00f2c8808819b 1 parent 6b6c9d6
@tsibley tsibley authored
Showing with 17 additions and 1 deletion.
  1. +17 −1 t/xhtml10.t
View
18 t/xhtml10.t
@@ -8,7 +8,7 @@ BEGIN {
use strict;
use lib '../lib';
-use Test::More tests => 58;
+use Test::More tests => 60;
#use Test::More 'no_plan';
use_ok('Pod::Simple::XHTML') or exit;
@@ -97,6 +97,22 @@ is $results, <<'EOF', 'Should have both and the index';
<h1 id="Bar">Bar</h1>
EOF
+
+initialize($parser, $results);
+ok $parser->parse_string_document( "=head1 Foo C<Bar>\n\n=head1 C<Baz>" ),
+ 'Parse two headers with C<> formatting';
+is $results, <<'EOF', 'Should have the index';
+<ul id="index">
+ <li><a href="#Foo-Bar">Foo Bar</a></li>
+ <li><a href="#Baz">Baz</a></li>
+</ul>
+
+<h1 id="Foo-Bar">Foo <code>Bar</code></h1>
+
+<h1 id="Baz"><code>Baz</code></h1>
+
+EOF
+
initialize($parser, $results);
ok $parser->parse_string_document( "=head1 Foo\n\n=head1 Bar\n\n=head1 Baz" ),
'Parse three headers';
Please sign in to comment.
Something went wrong with that request. Please try again.