Commit | Line | Data |
---|---|---|
351625bd SP |
1 | BEGIN { |
2 | if($ENV{PERL_CORE}) { | |
3 | chdir 't'; | |
4 | @INC = '../lib'; | |
5 | } | |
6 | } | |
7 | ||
8 | #use Pod::Simple::Debug (2); | |
9 | ||
10 | use strict; | |
11 | use Test; | |
12 | BEGIN { plan tests => 11 }; | |
13 | ||
14 | ||
15 | ok 1; | |
16 | ||
17 | use Pod::Simple::DumpAsXML; | |
18 | use Pod::Simple::XMLOutStream; | |
19 | print "# Pod::Simple version $Pod::Simple::VERSION\n"; | |
20 | sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } | |
21 | ||
22 | ok( Pod::Simple::XMLOutStream->_out("=head1 =head1"), | |
23 | '<Document><head1>=head1</head1></Document>' | |
24 | ); | |
25 | ||
26 | ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1"), | |
27 | '<Document><head1>=head1</head1></Document>' | |
28 | ); | |
29 | ||
30 | ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n"), | |
31 | '<Document><head1>=head1</head1></Document>' | |
32 | ); | |
33 | ||
34 | ok( Pod::Simple::XMLOutStream->_out("\n=head1 =head1\n\n"), | |
35 | '<Document><head1>=head1</head1></Document>' | |
36 | ); | |
37 | ||
38 | &ok(e "\n=head1 =head1\n\n" , "\n=head1 =head1\n\n"); | |
39 | ||
40 | &ok(e "\n=head1\n=head1\n\n", "\n=head1 =head1\n\n"); | |
41 | ||
42 | &ok(e "\n=pod\n\nCha cha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); | |
43 | &ok(e "\n=pod\n\nCha\tcha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); | |
44 | &ok(e "\n=pod\n\nCha\ncha cha\n\n" , "\n=pod\n\nCha cha cha\n\n"); | |
45 | ||
46 | print "# Wrapping up... one for the road...\n"; | |
47 | ok 1; | |
48 | print "# --- Done with ", __FILE__, " --- \n"; | |
49 |