1# Testing HTML text styles 2 3use strict; 4use warnings; 5use Test::More tests => 6; 6 7#use Pod::Simple::Debug (10); 8use Pod::Simple::HTML; 9 10sub x { Pod::Simple::HTML->_out( 11 sub{ $_[0]->bare_output(1) }, 12 "=pod\n\n$_[0]", 13) } 14 15ok 1; 16 17my @pairs = ( 18[ "I<italicized>" => qq{\n<p><i>italicized</i></p>\n} ], 19[ 'B<bolded>' => qq{\n<p><b>bolded</b></p>\n} ], 20[ 'C<code>' => qq{\n<p><code>code</code></p>\n} ], 21[ 'F</tmp/foo>' => qq{\n<p><em>/tmp/foo</em></p>\n} ], 22[ 'F</tmp/foo>' => qq{\n<p><em>/tmp/foo</em></p>\n} ], 23); 24 25 26foreach( @pairs ) { 27 print "# Testing pod source $$_[0] ...\n" unless $_->[0] =~ m/\n/; 28 is( x($_->[0]), $_->[1] ) 29} 30