Add TODO tests for =begin html bug.

BlackBox's `_ponder_end` should probably concatenate all of the text collected
in text tokens since `_ponder_begin` in order to make the text inside the
begin block truly verbatim. Otherwise Pod::Simple::HTML adds unwanted
newlines, while Pod::Simple::XHTML seems to remove them. See RT #91851 for
more details on this bug, which dates back to 2002!

Author: theory

t/html01.t

@@ -9,7 +9,7 @@ BEGIN {
 
 use strict;
 use Test;
-BEGIN { plan tests => 12 };
+BEGIN { plan tests => 13, todo => [11] };
 
 #use Pod::Simple::Debug (10);
 
@@ -103,6 +103,25 @@ ok(
 }
 );
 
+my $html = q{
+<tt>
+<pre>
+#include &lt;stdio.h&gt;
+
+int main(int argc,char *argv[]) {
+
+        printf("Hellow World\n");
+        return 0;
+
+}
+</pre>
+</tt>
+};
+ok(
+    x("=begin html\n\n$html\n\n=end html\n"),
+    $html
+);
+
 # Check subclass.
 SUBCLASS: {
     package My::Pod::HTML;

t/xhtml01.t

@@ -8,7 +8,7 @@ BEGIN {
 
 use strict;
 use lib '../lib';
-use Test::More tests => 61;
+use Test::More tests => 62;
 #use Test::More 'no_plan';
 
 use_ok('Pod::Simple::XHTML') or exit;
@@ -660,6 +660,27 @@ is($results, <<"EOHTML", "Text with numeric entities");
 
 EOHTML
 
+my $html = q{
+<tt>
+<pre>
+#include &lt;stdio.h&gt;
+
+int main(int argc,char *argv[]) {
+
+        printf("Hellow World\n");
+        return 0;
+
+}
+</pre>
+</tt>
+};
+initialize($parser, $results);
+$parser->parse_string_document("=begin html\n\n$html\n\n=end html\n");
+TODO: {
+    local $TODO = '=begin block text not properly parsed';
+    is($results, $html, "Text with =begin html");
+}
+
 SKIP: for my $use_html_entities (0, 1) {
   if ($use_html_entities and not $Pod::Simple::XHTML::HAS_HTML_ENTITIES) {
     skip("HTML::Entities not installed", 3);