1 files changed, 35 insertions, 0 deletions
diff --git a/lib/Pod/Simple/t/html-title.t b/lib/Pod/Simple/t/html-title.t
new file mode 100644
index 0000000000..43b3718389
--- /dev/null
+++ b/lib/Pod/Simple/t/html-title.t
@@ -0,0 +1,35 @@
+# t/html-para.t
+
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+ 
+use strict;
+use Test;
+BEGIN { plan tests => 7 };
+
+#use Pod::Simple::Debug (10);
+
+use Pod::Simple::HTML;
+
+sub x ($) { Pod::Simple::HTML->_out(
+  #sub{  $_[0]->bare_output(1)  },
+  "=pod\n\n$_[0]",
+) }
+
+
+# make sure empty file => empty output
+
+ok 1;
+ok( x(''),'', "Contentlessness" );
+ok( x(qq{=pod\n\nThis is a paragraph}) =~ m{<title></title>}i );
+ok( x(qq{This is a paragraph}) =~ m{<title></title>}i );
+ok( x(qq{=head1 Prok\n\nThis is a paragraph}) =~ m{<title>Prok</title>}i );
+ok( x(qq{=head1 NAME\n\nProk -- stuff\n\nThis}), q{/<title>Prok</title>/} );
+
+print "# And one for the road...\n";
+ok 1;
+