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