1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
BEGIN {
if($ENV{PERL_CORE}) {
chdir 't';
@INC = '../lib';
}
}
use strict;
use Test;
BEGIN { plan tests => 30 };
#use Pod::Simple::Debug (6);
ok 1;
require Pod::Simple::BlackBox;
ok 1;
require Pod::Simple; ok 1;
Pod::Simple->VERSION(.90); ok 1;
#print "# Pod::Simple version $Pod::Simple::VERSION\n";
require Pod::Simple::DumpAsXML; ok 1;
require Pod::Simple::XMLOutStream; ok 1;
sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
print "# Simple identity tests...\n";
&ok( e "", "" );
&ok( e "\n", "", );
&ok( e "\n", "\n", );
&ok( e "puppies\n\n\n\n", "", );
print "# Contentful identity tests...\n";
&ok( e "=pod\n\nFoo\n", "=pod\n\nFoo\n" );
&ok( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\n\n\nFoo\n\n\n" );
&ok( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\nFoo\n" );
# Now with some more newlines
&ok( e "\n\n=pod\n\nFoo\n", "\n\n=pod\n\nFoo\n" );
&ok( e "=pod\n\n\n\nFoo\n\n\n", "=pod\n\n\n\nFoo\n\n\n" );
&ok( e "=pod\n\n\n\nFoo\n\n\n", "\n\n=pod\n\nFoo\n" );
&ok( e "=head1 Foo\n", "=head1 Foo\n" );
&ok( e "=head1 Foo\n\n=cut\n", "=head1 Foo\n\n=cut\n" );
&ok( e "=head1 Foo\n\n=cut\n", "=head1 Foo\n" );
# Now just add some newlines...
&ok( e "\n\n\n\n=head1 Foo\n", "\n\n\n\n=head1 Foo\n" );
&ok( e "=head1 Foo\n\n=cut\n", "=head1 Foo\n\n=cut\n" );
&ok( e "=head1 Foo\n\n=cut\n", "\n\n\n\n=head1 Foo\n" );
print "# Simple XMLification tests...\n";
ok( Pod::Simple::XMLOutStream->_out("\n\n\nprint \$^T;\n\n\n"),
qq{<Document\ncontentless="1"></Document>}
# make sure the contentless flag is set
);
ok( Pod::Simple::XMLOutStream->_out("\n\n"),
qq{<Document\ncontentless="1"></Document>}
# make sure the contentless flag is set
);
ok( Pod::Simple::XMLOutStream->_out("\n"),
qq{<Document\ncontentless="1"></Document>}
# make sure the contentless flag is set
);
ok( Pod::Simple::XMLOutStream->_out(""),
qq{<Document\ncontentless="1"></Document>}
# make sure the contentless flag is set
);
ok( Pod::Simple::XMLOutStream->_out('', '<Document></Document>' ) );
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nFoo\n"),
'<Document><Para>Foo</Para></Document>'
);
ok( Pod::Simple::XMLOutStream->_out("=head1 Chacha\n\nFoo\n"),
'<Document><head1>Chacha</head1><Para>Foo</Para></Document>'
);
print "# Wrapping up... one for the road...\n";
ok 1;
print "# --- Done with ", __FILE__, " --- \n";
|
