Commit | Line | Data |
351625bd |
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 | |