10 #use Pod::Simple::Debug (10);
14 BEGIN { plan tests => 7};
15 use Pod::Simple::HTML;
17 sub x ($) { Pod::Simple::HTML->_out(
18 sub{ $_[0]->bare_output(1) },
25 [ "I<italicized>" => qq{\n<p><i>italicized</i></p>\n} ],
26 [ 'B<bolded>' => qq{\n<p><b>bolded</b></p>\n} ],
27 [ 'C<code>' => qq{\n<p><code>code</code></p>\n} ],
28 [ 'F</tmp/foo>' => qq{\n<p><em>/tmp/foo</em></p>\n} ],
29 [ 'F</tmp/foo>' => qq{\n<p><em>/tmp/foo</em></p>\n} ],
34 print "# Testing pod source $$_[0] ...\n" unless $_->[0] =~ m/\n/;
35 ok( x($_->[0]), $_->[1] )
37 print "# And one for the road...\n";