← Back to branch summary

~ubuntu-branches/ubuntu/hardy/libpod-simple-perl/hardy

« back to all changes in this revision

Viewing changes to t/html-para.t

  • Committer: Bazaar Package Importer
  • Author(s): Jay Bonci
  • Date: 2004-01-02 15:38:21 UTC
  • Revision ID: james.westby@ubuntu.com-20040102153821-ezu9yx6kwbygkaae
Tags: upstream-2.05
Import upstream version 2.05

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/html-para.t
 
1
# t/html-para.t
 
2
 
 
3
use strict;
 
4
use Test;
 
5
BEGIN { plan tests => 8 };
 
6
 
 
7
#use Pod::Simple::Debug (10);
 
8
 
 
9
use Pod::Simple::HTML;
 
10
 
 
11
sub x ($) { Pod::Simple::HTML->_out(
 
12
  sub{  $_[0]->bare_output(1)  },
 
13
  "=pod\n\n$_[0]",
 
14
) }
 
15
 
 
16
ok( x(
 
17
q{
 
18
=pod
 
19
 
 
20
This is a paragraph
 
21
 
 
22
=cut
 
23
}),
 
24
  qq{\n<p>This is a paragraph</p>\n},
 
25
  "paragraph building"
 
26
);
 
27
 
 
28
 
 
29
ok( x(qq{=pod\n\nThis is a paragraph}),
 
30
 qq{\n<p>This is a paragraph</p>\n},
 
31
 "paragraph building"
 
32
);
 
33
 
 
34
 
 
35
ok( x(qq{This is a paragraph}),
 
36
 qq{\n<p>This is a paragraph</p>\n},
 
37
 "paragraph building"
 
38
);
 
39
 
 
40
 
 
41
 
 
42
ok(x(
 
43
'=head1 This is a heading')
 
44
 => qq{\n<h1><a name="This_is_a_heading"\n>This is a heading</a></h1>\n},
 
45
  "heading building"
 
46
);
 
47
 
 
48
ok(x(
 
49
'=head2 This is a heading')
 
50
 => qq{\n<h2><a name="This_is_a_heading"\n>This is a heading</a></h2>\n},
 
51
  "heading building"
 
52
);
 
53
 
 
54
ok(x(
 
55
'=head3 This is a heading')
 
56
 => qq{\n<h3><a name="This_is_a_heading"\n>This is a heading</a></h3>\n},
 
57
  "heading building"
 
58
);
 
59
 
 
60
ok(x(
 
61
'=head4 This is a heading')
 
62
 => qq{\n<h4><a name="This_is_a_heading"\n>This is a heading</a></h4>\n},
 
63
  "heading building"
 
64
);
 
65
 
 
66
 
 
67
print "# And one for the road...\n";
 
68
ok 1;
 
69