Permalink
Browse files

Add a test for double anchors, in TODO block.

  • Loading branch information...
1 parent 1e6a3fe commit 5cb92a15396812b06b64c810b17746a8b00c93d8 @benkasminbullock benkasminbullock committed with Jun 9, 2012
Showing with 24 additions and 0 deletions.
  1. +24 −0 t/xhtml-bkb.t
View
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+
+# t/xhtml-bkb.t - https://rt.cpan.org/Public/Bug/Display.html?id=77686
+
+use strict;
+use warnings;
+use Test::More tests => 1;
+use Pod::Simple::XHTML;
+my $c = <<EOF;
+=head1 Documentation
+
+=head2 Changes to Existing Documentation
+
+=head3 L<perldata>
+EOF
+my $d = Pod::Simple::XHTML->new ();
+$d->index (1);
+my $e;
+$d->output_string (\$e);
+$d->parse_string_document ($c);
+TODO: {
+ local $TODO = 'See bug report';
+ unlike ($e, qr!<a[^>]+><a[^>]+>!);
+};

0 comments on commit 5cb92a1

Please sign in to comment.