Move Pod::Simple from ext/ to cpan/
[perl.git] / cpan / Pod-Simple / t / fcodes.t
1 BEGIN {
2     if($ENV{PERL_CORE}) {
3         chdir 't';
4         @INC = '../lib';
5     }
6 }
7
8 use strict;
9 use Test;
10 BEGIN { plan tests => 18 };
11
12 #use Pod::Simple::Debug (5);
13
14 ok 1;
15
16 use Pod::Simple::DumpAsXML;
17 use Pod::Simple::XMLOutStream;
18 print "# Pod::Simple version $Pod::Simple::VERSION\n";
19 sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
20
21 print "# With weird leading whitespace...\n";
22 # With weird whitespace
23 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nI<foo>\n"),
24  '<Document><Para><I>foo</I></Para></Document>'
25 );
26 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB< foo>\n"),
27  '<Document><Para><B> foo</B></Para></Document>'
28 );
29 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<\tfoo>\n"),
30  '<Document><Para><B> foo</B></Para></Document>'
31 );
32 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<\nfoo>\n"),
33  '<Document><Para><B> foo</B></Para></Document>'
34 );
35 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo>\n"),
36  '<Document><Para><B>foo</B></Para></Document>'
37 );
38 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo\t>\n"),
39  '<Document><Para><B>foo </B></Para></Document>'
40 );
41 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nB<foo\n>\n"),
42  '<Document><Para><B>foo </B></Para></Document>'
43 );
44
45
46 print "#\n# Tests for wedges outside of formatting codes...\n";
47 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\nX < 3 and N > 19\n"),
48      Pod::Simple::XMLOutStream->_out("=pod\n\nX E<lt> 3 and N E<gt> 19\n")
49 );
50
51
52 print "# A complex test with internal whitespace...\n";
53 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nI<foo>B< bar>C<baz >F< quux\t?>\n"),
54  '<Document><Para><I>foo</I><B> bar</B><C>baz </C><F> quux ?</F></Para></Document>'
55 );
56
57
58 print "# Without any nesting...\n";
59 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<a>C<b>I<c>B<d>X<e>\n"),
60  '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
61 );
62
63 print "# Without any nesting, but with Z's...\n";
64 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<a>C<b>I<c>B<d>X<e>\n"),
65  '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
66 );
67
68
69 print "# With lots of nesting, and Z's...\n";
70 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>foo> I<bar>> B<X<thingZ<>>baz>\n"),
71  '<Document><Para><F><C>foo</C> <I>bar</I></F> <B><X>thing</X>baz</B></Para></Document>'
72 );
73
74
75
76 print "#\n# *** Now testing different numbers of wedges ***\n";
77 print "# Without any nesting...\n";
78 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< a >>C<<< b >>>I<<<< c >>>>B<< d >>X<< e >>\n"),
79  '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
80 );
81
82 print "# Without any nesting, but with Z's, and odder whitespace...\n";
83 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>b >>>I<<<< c  >>>>B<< d \t >>X<<\ne >>\n"),
84  '<Document><Para><F>a</F><C>b</C><I>c</I><B>d</B><X>e</X></Para></Document>'
85 );
86
87 print "# With nesting and Z's, and odder whitespace...\n";
88 ok( Pod::Simple::XMLOutStream->_out("=pod\n\nF<< aZ<> >>C<<< Z<>bZ<>B<< d \t >>X<<\ne >> >>>I<<<< c  >>>>\n"),
89  '<Document><Para><F>a</F><C>b<B>d</B><X>e</X></C><I>c</I></Para></Document>'
90 );
91
92
93 print "# Misc...\n";
94 ok( Pod::Simple::XMLOutStream->_out(
95  "=pod\n\nI like I<PIE> with B<cream> and Stuff and N < 3 and X<< things >> hoohah\n"
96 ."And I<pie is B<also> a happy time>.\n"
97 ."And B<I<<< I like pie >>>.>\n"
98 ) =>
99 "<Document><Para>I like <I>PIE</I> with <B>cream</B> and Stuff and N &#60; 3 and <X>things</X> hoohah "
100 ."And <I>pie is <B>also</B> a happy time</I>. "
101 ."And <B><I>I like pie</I>.</B></Para></Document>"
102 );
103
104
105
106
107
108 print "# Wrapping up... one for the road...\n";
109 ok 1;
110 print "# --- Done with ", __FILE__, " --- \n";
111
112