Commit | Line | Data |
---|---|---|
351625bd SP |
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 => 21 }; | |
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 | my $x = 'Pod::Simple::XMLOutStream'; | |
22 | $Pod::Simple::XMLOutStream::ATTR_PAD = ' '; | |
23 | $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output | |
24 | ||
25 | ||
26 | sub moj {shift->accept_target('mojojojo')} | |
27 | sub mojtext {shift->accept_target_as_text('mojojojo')} | |
28 | sub any {shift->accept_target('*')} | |
29 | ||
30 | #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ | |
31 | ||
32 | ok( $x->_out( "=pod\n\nI like pie.\n\n=for mojojojo stuff\n\nYup.\n"), | |
33 | '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' | |
34 | ); | |
35 | ok( $x->_out( "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk stuff\n\nYup.\n"), | |
36 | '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' | |
37 | ); | |
38 | ok( $x->_out( "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), | |
39 | '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' | |
40 | ); | |
41 | ok( $x->_out( "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), | |
42 | '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' | |
43 | ); | |
44 | ok( $x->_out( "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), | |
45 | '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' | |
46 | ); | |
47 | ||
48 | print "# Testing accept_target ...\n"; | |
49 | ||
50 | ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for crunk stuff\n\nYup.\n"), | |
51 | '<Document><Para>I like pie.</Para><Para>Yup.</Para></Document>' | |
52 | ); | |
53 | ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), | |
54 | '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' | |
55 | ); | |
56 | ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), | |
57 | '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' | |
58 | ); | |
59 | ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for :mojojojo I<stuff>\n\nYup.\n"), | |
60 | '<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' | |
61 | ); | |
62 | ok( $x->_out( \&moj, "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), | |
63 | '<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' | |
64 | ); | |
65 | ||
66 | print "# Testing accept_target_as_text ...\n"; | |
67 | ||
68 | ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), | |
69 | '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' | |
70 | ); | |
71 | ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), | |
72 | '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' | |
73 | ); | |
74 | ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for :mojojojo I<stuff>\n\nYup.\n"), | |
75 | '<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' | |
76 | ); | |
77 | ok( $x->_out( \&mojtext, "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), | |
78 | '<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="mojojojo"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' | |
79 | ); | |
80 | ||
81 | ||
82 | ||
83 | print "# Testing accept_target(*) ...\n"; | |
84 | ||
85 | ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), | |
86 | '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="*"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' | |
87 | ); | |
88 | ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for mojojojo I<stuff>\n\nYup.\n"), | |
89 | '<Document><Para>I like pie.</Para><for target="mojojojo" target_matching="*"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' | |
90 | ); | |
91 | ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), | |
92 | '<Document><Para>I like pie.</Para><for target="psketti,mojojojo,crunk" target_matching="*"><Data xml:space="preserve">I<stuff></Data></for><Para>Yup.</Para></Document>' | |
93 | ); | |
94 | ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for :mojojojo I<stuff>\n\nYup.\n"), | |
95 | '<Document><Para>I like pie.</Para><for target=":mojojojo" target_matching="*"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' | |
96 | ); | |
97 | ok( $x->_out( \&any, "=pod\n\nI like pie.\n\n=for :psketti,mojojojo,crunk I<stuff>\n\nYup.\n"), | |
98 | '<Document><Para>I like pie.</Para><for target=":psketti,mojojojo,crunk" target_matching="*"><Para><I>stuff</I></Para></for><Para>Yup.</Para></Document>' | |
99 | ); | |
100 | ||
101 | ||
102 | ||
103 | ||
104 | print "# Wrapping up... one for the road...\n"; | |
105 | ok 1; | |
106 | print "# --- Done with ", __FILE__, " --- \n"; | |
107 |