Commit | Line | Data |
---|---|---|
9dd0d393 CBW |
1 | #!/usr/bin/perl -w |
2 | ||
3 | # t/xhtml-bkb.t - https://rt.cpan.org/Public/Bug/Display.html?id=77686 | |
4 | ||
5 | use strict; | |
6 | use warnings; | |
7 | use Test::More tests => 1; | |
8 | use Pod::Simple::XHTML; | |
9 | my $c = <<EOF; | |
10 | =head1 Documentation | |
11 | ||
12 | =head2 Changes to Existing Documentation | |
13 | ||
14 | =head3 L<perldata> | |
15 | EOF | |
16 | my $d = Pod::Simple::XHTML->new (); | |
17 | $d->index (1); | |
18 | my $e; | |
19 | $d->output_string (\$e); | |
20 | $d->parse_string_document ($c); | |
21 | unlike ($e, qr!<a[^>]+><a[^>]+>!); |