1# Testing HTML text styles 2 3BEGIN { 4 if($ENV{PERL_CORE}) { 5 chdir 't'; 6 @INC = '../lib'; 7 } 8} 9 10#use Pod::Simple::Debug (10); 11 12use strict; 13use Test; 14BEGIN { plan tests => 7}; 15use Pod::Simple::HTML; 16 17sub x ($) { Pod::Simple::HTML->_out( 18 sub{ $_[0]->bare_output(1) }, 19 "=pod\n\n$_[0]", 20) } 21 22ok 1; 23 24my @pairs = ( 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} ], 30); 31 32 33foreach( @pairs ) { 34 print "# Testing pod source $$_[0] ...\n" unless $_->[0] =~ m/\n/; 35 ok( x($_->[0]), $_->[1] ) 36} 37print "# And one for the road...\n"; 38ok 1; 39 40 41