1 files changed, 40 insertions, 0 deletions
diff --git a/ext/Pod-Simple/t/html02.t b/ext/Pod-Simple/t/html02.t
new file mode 100644
index 0000000000..f00507c931
--- /dev/null
+++ b/ext/Pod-Simple/t/html02.t
@@ -0,0 +1,40 @@
+# t/html-styles.t
+
+BEGIN {
+    if($ENV{PERL_CORE}) {
+        chdir 't';
+        @INC = '../lib';
+    }
+}
+
+#use Pod::Simple::Debug (10);
+
+use strict;
+use Test;
+BEGIN { plan tests => 7};
+use Pod::Simple::HTML;
+
+sub x ($) { Pod::Simple::HTML->_out(
+  sub{  $_[0]->bare_output(1)  },
+  "=pod\n\n$_[0]",
+) }
+
+ok 1;
+
+my @pairs = (
+[ "I<italicized>"   => qq{\n<p><i>italicized</i></p>\n} ],
+[ 'B<bolded>'       => qq{\n<p><b>bolded</b></p>\n}           ],
+[ 'C<code>'         => qq{\n<p><code>code</code></p>\n} ],
+[ 'F</tmp/foo>'     => qq{\n<p><em>/tmp/foo</em></p>\n} ],
+[ 'F</tmp/foo>'     => qq{\n<p><em>/tmp/foo</em></p>\n} ],
+);
+ 
+ 
+foreach( @pairs ) {
+  print "# Testing pod source $$_[0] ...\n" unless $_->[0] =~ m/\n/;
+  ok( x($_->[0]), $_->[1] )
+}
+print "# And one for the road...\n";
+ok 1;
+
+