~ubuntu-branches/ubuntu/trusty/horae/trusty

« back to all changes in this revision

Viewing changes to 0CPAN/Pod-Simple-3.03/t/html-styles.t

• browse files at revision 3
• compare with another revision
• download diff
• download tarball
• view history from revision 3

Show diffs side-by-side

added

removed

0CPAN/Pod-Simple-3.03/t/html-styles.t

1

 

# t/html-styles.t

2

 

 

3

 

#use Pod::Simple::Debug (10);

4

 

 

5

 

use strict;

6

 

use Test;

7

 

BEGIN { plan tests => 7};

8

 

use Pod::Simple::HTML;

9

 

 

10

 

sub x ($) { Pod::Simple::HTML->_out(

11

 

  sub{  $_[0]->bare_output(1)  },

12

 

  "=pod\n\n$_[0]",

13

 

) }

14

 

 

15

 

ok 1;

16

 

 

17

 

my @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

 

 

26

 

foreach( @pairs ) {

27

 

  print "# Testing pod source $$_[0] ...\n" unless $_->[0] =~ m/\n/;

28

 

  ok( x($_->[0]), $_->[1] )

29

 

}

30

 

print "# And one for the road...\n";

31

 

ok 1;

32

 

 

33

 

 

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1