Commit | Line | Data |
---|---|---|
9c7c0c6c | 1 | # fcodes L |
351625bd SP |
2 | BEGIN { |
3 | if($ENV{PERL_CORE}) { | |
4 | chdir 't'; | |
5 | @INC = '../lib'; | |
6 | } | |
7 | } | |
8 | ||
9 | use strict; | |
10 | use Test; | |
9dd0d393 | 11 | BEGIN { plan tests => 101 }; |
351625bd SP |
12 | |
13 | #use Pod::Simple::Debug (10); | |
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 | my $x = 'Pod::Simple::XMLOutStream'; | |
22 | ||
23 | print "##### Testing L codes via x class $x...\n"; | |
24 | ||
25 | $Pod::Simple::XMLOutStream::ATTR_PAD = ' '; | |
26 | $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output | |
27 | ||
28 | print "# Simple/moderate L<stuff> tests...\n"; | |
29 | ||
30 | ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}), | |
60527824 | 31 | '<Document><Para><L content-implicit="yes" raw="Net::Ping" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' |
351625bd SP |
32 | ); |
33 | ||
34 | ok($x->_out(qq{=pod\n\nL<crontab(5)>\n}), | |
60527824 | 35 | '<Document><Para><L content-implicit="yes" raw="crontab(5)" to="crontab(5)" type="man">crontab(5)</L></Para></Document>' |
351625bd SP |
36 | ); |
37 | ||
9dd0d393 CBW |
38 | ok($x->_out(qq{=pod\n\nL<login.conf(5)>\n}), |
39 | '<Document><Para><L content-implicit="yes" raw="login.conf(5)" to="login.conf(5)" type="man">login.conf(5)</L></Para></Document>' | |
40 | ); | |
41 | ||
42 | ok($x->_out(qq{=pod\n\nL<foo_bar(5)>\n}), | |
43 | '<Document><Para><L content-implicit="yes" raw="foo_bar(5)" to="foo_bar(5)" type="man">foo_bar(5)</L></Para></Document>' | |
44 | ); | |
45 | ||
351625bd | 46 | ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-pong>\n}), |
60527824 | 47 | '<Document><Para><L content-implicit="yes" raw="Net::Ping/Ping-pong" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
48 | ); |
49 | ||
50 | ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-pong">\n}), | |
60527824 | 51 | '<Document><Para><L content-implicit="yes" raw="Net::Ping/"Ping-pong"" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
52 | ); |
53 | ||
54 | ok( $x->_out(qq{=pod\n\nL</"Object Methods">\n}), | |
60527824 | 55 | '<Document><Para><L content-implicit="yes" raw="/"Object Methods"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
56 | ); |
57 | ok( $x->_out(qq{=pod\n\nL</Object Methods>\n}), | |
60527824 | 58 | '<Document><Para><L content-implicit="yes" raw="/Object Methods" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
59 | ); |
60 | ok( $x->_out(qq{=pod\n\nL<"Object Methods">\n}), | |
60527824 | 61 | '<Document><Para><L content-implicit="yes" raw=""Object Methods"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
62 | ); |
63 | ||
64 | ||
65 | print "# Complex L<stuff> tests...\n"; | |
66 | print "# Ents in the middle...\n"; | |
67 | ||
68 | ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}), | |
60527824 | 69 | '<Document><Para><L content-implicit="yes" raw="Net::Ping" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' |
351625bd SP |
70 | ); |
71 | ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}), | |
60527824 | 72 | '<Document><Para><L content-implicit="yes" raw="Net::Ping/Ping-E<112>ong" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
73 | ); |
74 | ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-E<112>ong">\n}), | |
60527824 | 75 | '<Document><Para><L content-implicit="yes" raw="Net::Ping/"Ping-E<112>ong"" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
76 | ); |
77 | ||
78 | ok( $x->_out(qq{=pod\n\nL</"Object E<77>ethods">\n}), | |
60527824 | 79 | '<Document><Para><L content-implicit="yes" raw="/"Object E<77>ethods"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
80 | ); |
81 | ok( $x->_out(qq{=pod\n\nL</Object E<77>ethods>\n}), | |
60527824 | 82 | '<Document><Para><L content-implicit="yes" raw="/Object E<77>ethods" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
83 | ); |
84 | ok( $x->_out(qq{=pod\n\nL<"Object E<77>ethods">\n}), | |
60527824 | 85 | '<Document><Para><L content-implicit="yes" raw=""Object E<77>ethods"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
86 | ); |
87 | ||
88 | ||
89 | ||
90 | print "# Ents in the middle and at the start...\n"; | |
91 | ||
92 | ok($x->_out(qq{=pod\n\nL<E<78>et::Ping>\n}), | |
60527824 | 93 | '<Document><Para><L content-implicit="yes" raw="E<78>et::Ping" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' |
351625bd SP |
94 | ); |
95 | ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}), | |
60527824 | 96 | '<Document><Para><L content-implicit="yes" raw="E<78>et::Ping/Ping-E<112>ong" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
97 | ); |
98 | ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/"Ping-E<112>ong">\n}), | |
60527824 | 99 | '<Document><Para><L content-implicit="yes" raw="E<78>et::Ping/"Ping-E<112>ong"" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
100 | ); |
101 | ||
102 | ok( $x->_out(qq{=pod\n\nL</"E<79>bject E<77>ethods">\n}), | |
60527824 | 103 | '<Document><Para><L content-implicit="yes" raw="/"E<79>bject E<77>ethods"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
104 | ); |
105 | ok( $x->_out(qq{=pod\n\nL</E<79>bject E<77>ethods>\n}), | |
60527824 | 106 | '<Document><Para><L content-implicit="yes" raw="/E<79>bject E<77>ethods" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
107 | ); |
108 | ok( $x->_out(qq{=pod\n\nL<"E<79>bject E<77>ethods">\n}), | |
60527824 | 109 | '<Document><Para><L content-implicit="yes" raw=""E<79>bject E<77>ethods"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
110 | ); |
111 | ||
112 | ||
113 | print "# Ents in the middle and at the start and at the end...\n"; | |
114 | ||
115 | ok($x->_out(qq{=pod\n\nL<E<78>et::PinE<103>>\n}), | |
60527824 | 116 | '<Document><Para><L content-implicit="yes" raw="E<78>et::PinE<103>" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' |
351625bd SP |
117 | ); |
118 | ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/Ping-E<112>onE<103>>\n}), | |
60527824 | 119 | '<Document><Para><L content-implicit="yes" raw="E<78>et::PinE<103>/Ping-E<112>onE<103>" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
120 | ); |
121 | ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/"Ping-E<112>onE<103>">\n}), | |
60527824 | 122 | '<Document><Para><L content-implicit="yes" raw="E<78>et::PinE<103>/"Ping-E<112>onE<103>"" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
123 | ); |
124 | ||
125 | ok( $x->_out(qq{=pod\n\nL</"E<79>bject E<77>ethodE<115>">\n}), | |
60527824 | 126 | '<Document><Para><L content-implicit="yes" raw="/"E<79>bject E<77>ethodE<115>"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
127 | ); |
128 | ok( $x->_out(qq{=pod\n\nL</E<79>bject E<77>ethodE<115>>\n}), | |
60527824 | 129 | '<Document><Para><L content-implicit="yes" raw="/E<79>bject E<77>ethodE<115>" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
130 | ); |
131 | ok( $x->_out(qq{=pod\n\nL<"E<79>bject E<77>ethodE<115>">\n}), | |
60527824 | 132 | '<Document><Para><L content-implicit="yes" raw=""E<79>bject E<77>ethodE<115>"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
133 | ); |
134 | ||
135 | ||
136 | print "# Even more complex L<stuff> tests...\n"; | |
137 | ||
138 | ||
139 | print "# Ents in the middle...\n"; | |
140 | ||
141 | ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}), | |
60527824 | 142 | '<Document><Para><L content-implicit="yes" raw="Net::Ping" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' |
351625bd SP |
143 | ); |
144 | ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-E<112>ong>\n}), | |
60527824 | 145 | '<Document><Para><L content-implicit="yes" raw="Net::Ping/Ping-E<112>ong" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
146 | ); |
147 | ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-E<112>ong">\n}), | |
60527824 | 148 | '<Document><Para><L content-implicit="yes" raw="Net::Ping/"Ping-E<112>ong"" section="Ping-pong" to="Net::Ping" type="pod">"Ping-pong" in Net::Ping</L></Para></Document>' |
351625bd SP |
149 | ); |
150 | ||
151 | ok( $x->_out(qq{=pod\n\nL</"Object E<77>ethods">\n}), | |
60527824 | 152 | '<Document><Para><L content-implicit="yes" raw="/"Object E<77>ethods"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
153 | ); |
154 | ok( $x->_out(qq{=pod\n\nL</Object E<77>ethods>\n}), | |
60527824 | 155 | '<Document><Para><L content-implicit="yes" raw="/Object E<77>ethods" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
156 | ); |
157 | ok( $x->_out(qq{=pod\n\nL<"Object E<77>ethods">\n}), | |
60527824 | 158 | '<Document><Para><L content-implicit="yes" raw=""Object E<77>ethods"" section="Object Methods" type="pod">"Object Methods"</L></Para></Document>' |
351625bd SP |
159 | ); |
160 | ||
161 | ||
162 | ########################################################################### | |
163 | ||
164 | print "# VERY complex L sequences...\n"; | |
165 | print "# Ents in the middle and at the start...\n"; | |
166 | ||
167 | ||
168 | ok($x->_out(qq{=pod\n\nL<Net::Ping>\n}), | |
60527824 | 169 | '<Document><Para><L content-implicit="yes" raw="Net::Ping" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' |
351625bd SP |
170 | ); |
171 | ok( $x->_out(qq{=pod\n\nL<Net::Ping/Ping-B<E<112>ong>>\n}), | |
60527824 | 172 | '<Document><Para><L content-implicit="yes" raw="Net::Ping/Ping-B<E<112>ong>" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' |
351625bd SP |
173 | ); |
174 | ok( $x->_out(qq{=pod\n\nL<Net::Ping/"Ping-B<E<112>ong>">\n}), | |
60527824 | 175 | '<Document><Para><L content-implicit="yes" raw="Net::Ping/"Ping-B<E<112>ong>"" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' |
351625bd SP |
176 | ); |
177 | ||
178 | ok( $x->_out(qq{=pod\n\nL</"B<Object> E<77>ethods">\n}), | |
60527824 | 179 | '<Document><Para><L content-implicit="yes" raw="/"B<Object> E<77>ethods"" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
180 | ); |
181 | ok( $x->_out(qq{=pod\n\nL</B<Object> E<77>ethods>\n}), | |
60527824 | 182 | '<Document><Para><L content-implicit="yes" raw="/B<Object> E<77>ethods" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
183 | ); |
184 | ok( $x->_out(qq{=pod\n\nL<"B<Object> E<77>ethods">\n}), | |
60527824 | 185 | '<Document><Para><L content-implicit="yes" raw=""B<Object> E<77>ethods"" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
186 | ); |
187 | ||
188 | ||
189 | ||
190 | print "# Ents in the middle and at the start...\n"; | |
191 | ||
192 | ok($x->_out(qq{=pod\n\nL<E<78>et::Ping>\n}), | |
60527824 | 193 | '<Document><Para><L content-implicit="yes" raw="E<78>et::Ping" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' |
351625bd SP |
194 | ); |
195 | ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-B<E<112>ong>>\n}), | |
60527824 | 196 | '<Document><Para><L content-implicit="yes" raw="E<78>et::Ping/Ping-B<E<112>ong>" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' |
351625bd SP |
197 | ); |
198 | ok( $x->_out(qq{=pod\n\nL<E<78>et::Ping/"Ping-B<E<112>ong>">\n}), | |
60527824 | 199 | '<Document><Para><L content-implicit="yes" raw="E<78>et::Ping/"Ping-B<E<112>ong>"" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' |
351625bd SP |
200 | ); |
201 | ||
202 | ok( $x->_out(qq{=pod\n\nL</"B<E<79>bject> E<77>ethods">\n}), | |
60527824 | 203 | '<Document><Para><L content-implicit="yes" raw="/"B<E<79>bject> E<77>ethods"" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
204 | ); |
205 | ok( $x->_out(qq{=pod\n\nL</B<E<79>bject> E<77>ethods>\n}), | |
60527824 | 206 | '<Document><Para><L content-implicit="yes" raw="/B<E<79>bject> E<77>ethods" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
207 | ); |
208 | ok( $x->_out(qq{=pod\n\nL<"B<E<79>bject> E<77>ethods">\n}), | |
60527824 | 209 | '<Document><Para><L content-implicit="yes" raw=""B<E<79>bject> E<77>ethods"" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
210 | ); |
211 | ||
212 | ||
213 | print "# Ents in the middle and at the start and at the end...\n"; | |
214 | ||
215 | ok($x->_out(qq{=pod\n\nL<E<78>et::PinE<103>>\n}), | |
60527824 | 216 | '<Document><Para><L content-implicit="yes" raw="E<78>et::PinE<103>" to="Net::Ping" type="pod">Net::Ping</L></Para></Document>' |
351625bd SP |
217 | ); |
218 | ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/Ping-B<E<112>onE<103>>>\n}), | |
60527824 | 219 | '<Document><Para><L content-implicit="yes" raw="E<78>et::PinE<103>/Ping-B<E<112>onE<103>>" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' |
351625bd SP |
220 | ); |
221 | ok( $x->_out(qq{=pod\n\nL<E<78>et::PinE<103>/"Ping-B<E<112>onE<103>>">\n}), | |
60527824 | 222 | '<Document><Para><L content-implicit="yes" raw="E<78>et::PinE<103>/"Ping-B<E<112>onE<103>>"" section="Ping-pong" to="Net::Ping" type="pod">"Ping-<B>pong</B>" in Net::Ping</L></Para></Document>' |
351625bd SP |
223 | ); |
224 | ||
225 | ok( $x->_out(qq{=pod\n\nL</"B<E<79>bject> E<77>ethodE<115>">\n}), | |
60527824 | 226 | '<Document><Para><L content-implicit="yes" raw="/"B<E<79>bject> E<77>ethodE<115>"" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
227 | ); |
228 | ok( $x->_out(qq{=pod\n\nL</B<E<79>bject> E<77>ethodE<115>>\n}), | |
60527824 | 229 | '<Document><Para><L content-implicit="yes" raw="/B<E<79>bject> E<77>ethodE<115>" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
230 | ); |
231 | ok( $x->_out(qq{=pod\n\nL<"B<E<79>bject> E<77>ethodE<115>">\n}), | |
60527824 | 232 | '<Document><Para><L content-implicit="yes" raw=""B<E<79>bject> E<77>ethodE<115>"" section="Object Methods" type="pod">"<B>Object</B> Methods"</L></Para></Document>' |
351625bd SP |
233 | ); |
234 | ||
235 | ||
236 | ########################################################################### | |
237 | ||
238 | print "#\n# L<url> tests...\n"; | |
239 | ||
240 | ok( $x->_out(qq{=pod\n\nL<news:comp.lang.perl.misc>\n}), | |
60527824 | 241 | '<Document><Para><L content-implicit="yes" raw="news:comp.lang.perl.misc" to="news:comp.lang.perl.misc" type="url">news:comp.lang.perl.misc</L></Para></Document>' |
351625bd SP |
242 | ); |
243 | ok( $x->_out(qq{=pod\n\nL<http://www.perl.com>\n}), | |
60527824 | 244 | '<Document><Para><L content-implicit="yes" raw="http://www.perl.com" to="http://www.perl.com" type="url">http://www.perl.com</L></Para></Document>' |
351625bd SP |
245 | ); |
246 | ok( $x->_out(qq{=pod\n\nL<http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/>\n}), | |
60527824 | 247 | '<Document><Para><L content-implicit="yes" raw="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>' |
351625bd SP |
248 | ); |
249 | ||
250 | print "# L<url> tests with entities...\n"; | |
251 | ||
252 | ok( $x->_out(qq{=pod\n\nL<news:compE<46>lang.perl.misc>\n}), | |
60527824 | 253 | '<Document><Para><L content-implicit="yes" raw="news:compE<46>lang.perl.misc" to="news:comp.lang.perl.misc" type="url">news:comp.lang.perl.misc</L></Para></Document>' |
351625bd SP |
254 | ); |
255 | ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com>\n}), | |
60527824 | 256 | '<Document><Para><L content-implicit="yes" raw="http://wwwE<46>perl.com" to="http://www.perl.com" type="url">http://www.perl.com</L></Para></Document>' |
351625bd SP |
257 | ); |
258 | ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com/CPAN/authors/id/S/SB/SBURKE/>\n}), | |
60527824 | 259 | '<Document><Para><L content-implicit="yes" raw="http://wwwE<46>perl.com/CPAN/authors/id/S/SB/SBURKE/" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>' |
351625bd SP |
260 | ); |
261 | ok( $x->_out(qq{=pod\n\nL<http://wwwE<46>perl.com/CPAN/authors/id/S/SB/SBURKEE<47>>\n}), | |
60527824 | 262 | '<Document><Para><L content-implicit="yes" raw="http://wwwE<46>perl.com/CPAN/authors/id/S/SB/SBURKEE<47>" to="http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/" type="url">http://www.perl.com/CPAN/authors/id/S/SB/SBURKE/</L></Para></Document>' |
351625bd SP |
263 | ); |
264 | ||
265 | ||
266 | ########################################################################### | |
267 | ||
268 | ||
269 | print "# L<text|stuff> tests...\n"; | |
270 | ||
271 | ok($x->_out(qq{=pod\n\nL<things|crontab(5)>\n}), | |
60527824 | 272 | '<Document><Para><L raw="things|crontab(5)" to="crontab(5)" type="man">things</L></Para></Document>' |
351625bd SP |
273 | ); |
274 | ok($x->_out(qq{=pod\n\nL<things|crontab(5)/ENVIRONMENT>\n}), | |
60527824 | 275 | '<Document><Para><L raw="things|crontab(5)/ENVIRONMENT" section="ENVIRONMENT" to="crontab(5)" type="man">things</L></Para></Document>' |
351625bd SP |
276 | ); |
277 | ok($x->_out(qq{=pod\n\nL<things|crontab(5)/"ENVIRONMENT">\n}), | |
60527824 | 278 | '<Document><Para><L raw="things|crontab(5)/"ENVIRONMENT"" section="ENVIRONMENT" to="crontab(5)" type="man">things</L></Para></Document>' |
351625bd SP |
279 | ); |
280 | ||
281 | ok( $x->_out(qq{=pod\n\nL<Perl Error Messages|perldiag>\n}), | |
60527824 | 282 | '<Document><Para><L raw="Perl Error Messages|perldiag" to="perldiag" type="pod">Perl Error Messages</L></Para></Document>' |
351625bd SP |
283 | ); |
284 | ok( $x->_out(qq{=pod\n\nL<Perl\nError\nMessages|perldiag>\n}), | |
60527824 | 285 | '<Document><Para><L raw="Perl Error Messages|perldiag" to="perldiag" type="pod">Perl Error Messages</L></Para></Document>' |
351625bd SP |
286 | ); |
287 | ok( $x->_out(qq{=pod\n\nL<Perl\nError\t Messages|perldiag>\n}), | |
60527824 | 288 | '<Document><Para><L raw="Perl Error Messages|perldiag" to="perldiag" type="pod">Perl Error Messages</L></Para></Document>' |
351625bd SP |
289 | ); |
290 | ||
291 | ||
292 | ok( $x->_out(qq{=pod\n\nL<SWITCH statements|perlsyn/"Basic BLOCKs and Switch Statements">\n}), | |
60527824 | 293 | '<Document><Para><L raw="SWITCH statements|perlsyn/"Basic BLOCKs and Switch Statements"" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH statements</L></Para></Document>' |
351625bd SP |
294 | ); |
295 | ok( $x->_out(qq{=pod\n\nL<SWITCH statements|perlsyn/Basic BLOCKs and Switch Statements>\n}), | |
60527824 | 296 | '<Document><Para><L raw="SWITCH statements|perlsyn/Basic BLOCKs and Switch Statements" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH statements</L></Para></Document>' |
351625bd SP |
297 | ); |
298 | ||
299 | ||
300 | ok( $x->_out(qq{=pod\n\nL<the various attributes|/"Member Data">\n}), | |
60527824 | 301 | '<Document><Para><L raw="the various attributes|/"Member Data"" section="Member Data" type="pod">the various attributes</L></Para></Document>' |
351625bd SP |
302 | ); |
303 | ok( $x->_out(qq{=pod\n\nL<the various attributes|/Member Data>\n}), | |
60527824 | 304 | '<Document><Para><L raw="the various attributes|/Member Data" section="Member Data" type="pod">the various attributes</L></Para></Document>' |
351625bd SP |
305 | ); |
306 | ok( $x->_out(qq{=pod\n\nL<the various attributes|"Member Data">\n}), | |
60527824 | 307 | '<Document><Para><L raw="the various attributes|"Member Data"" section="Member Data" type="pod">the various attributes</L></Para></Document>' |
351625bd SP |
308 | ); |
309 | ||
310 | ||
311 | print "#\n# Now some very complex L<text|stuff> tests...\n"; | |
312 | ||
313 | ||
314 | ok( $x->_out(qq{=pod\n\nL<Perl B<Error E<77>essages>|perldiag>\n}), | |
60527824 | 315 | '<Document><Para><L raw="Perl B<Error E<77>essages>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' |
351625bd SP |
316 | ); |
317 | ok( $x->_out(qq{=pod\n\nL<Perl\nB<Error\nE<77>essages>|perldiag>\n}), | |
60527824 | 318 | '<Document><Para><L raw="Perl B<Error E<77>essages>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' |
351625bd SP |
319 | ); |
320 | ok( $x->_out(qq{=pod\n\nL<Perl\nB<Error\t E<77>essages>|perldiag>\n}), | |
60527824 | 321 | '<Document><Para><L raw="Perl B<Error E<77>essages>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' |
351625bd SP |
322 | ); |
323 | ||
324 | ||
325 | ok( $x->_out(qq{=pod\n\nL<SWITCH B<E<115>tatements>|perlsyn/"Basic I<BLOCKs> and Switch StatementE<115>">\n}), | |
60527824 | 326 | '<Document><Para><L raw="SWITCH B<E<115>tatements>|perlsyn/"Basic I<BLOCKs> and Switch StatementE<115>"" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' |
351625bd SP |
327 | ); |
328 | ok( $x->_out(qq{=pod\n\nL<SWITCH B<E<115>tatements>|perlsyn/Basic I<BLOCKs> and Switch StatementE<115>>\n}), | |
60527824 | 329 | '<Document><Para><L raw="SWITCH B<E<115>tatements>|perlsyn/Basic I<BLOCKs> and Switch StatementE<115>" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' |
351625bd SP |
330 | ); |
331 | ||
332 | ||
333 | ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|/"Member Data">\n}), | |
60527824 | 334 | '<Document><Para><L raw="the F<various> attributes|/"Member Data"" section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' |
351625bd SP |
335 | ); |
336 | ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|/Member Data>\n}), | |
60527824 | 337 | '<Document><Para><L raw="the F<various> attributes|/Member Data" section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' |
351625bd SP |
338 | ); |
339 | ok( $x->_out(qq{=pod\n\nL<the F<various> attributes|"Member Data">\n}), | |
60527824 | 340 | '<Document><Para><L raw="the F<various> attributes|"Member Data"" section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' |
351625bd SP |
341 | ); |
342 | ||
343 | ||
344 | print "#\n# Now some very complex L<text|stuff> tests with variant syntax...\n"; | |
345 | ||
346 | ||
347 | ok( $x->_out(qq{=pod\n\nL<< Perl B<<< Error E<77>essages >>>|perldiag >>\n}), | |
60527824 | 348 | '<Document><Para><L raw="Perl B<<< Error E<77>essages >>>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' |
351625bd SP |
349 | ); |
350 | ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>\n}), | |
60527824 | 351 | '<Document><Para><L raw="Perl B<<< Error E<77>essages >>>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' |
351625bd SP |
352 | ); |
353 | ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>\n}), | |
60527824 | 354 | '<Document><Para><L raw="Perl B<<< Error E<77>essages >>>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' |
351625bd SP |
355 | ); |
356 | ||
357 | ||
358 | ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>\n}), | |
60527824 | 359 | '<Document><Para><L raw="SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>"" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' |
351625bd SP |
360 | ); |
361 | ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>\n}), | |
60527824 | 362 | '<Document><Para><L raw="SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' |
351625bd SP |
363 | ); |
364 | ||
365 | ||
366 | ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/"Member Data" >>>\n}), | |
60527824 | 367 | '<Document><Para><L raw="the F<< various >> attributes|/"Member Data"" section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' |
351625bd SP |
368 | ); |
369 | ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/Member Data >>>\n}), | |
60527824 | 370 | '<Document><Para><L raw="the F<< various >> attributes|/Member Data" section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' |
351625bd SP |
371 | ); |
372 | ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|"Member Data" >>>\n}), | |
60527824 | 373 | '<Document><Para><L raw="the F<< various >> attributes|"Member Data"" section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' |
351625bd SP |
374 | ); |
375 | ||
376 | ########################################################################### | |
377 | ||
378 | print "#\n# Now some very complex L<text|stuff> tests with variant syntax and text around it...\n"; | |
379 | ||
380 | ||
381 | ok( $x->_out(qq{=pod\n\nI like L<< Perl B<<< Error E<77>essages >>>|perldiag >>.\n}), | |
60527824 | 382 | '<Document><Para>I like <L raw="Perl B<<< Error E<77>essages >>>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' |
351625bd SP |
383 | ); |
384 | ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>.\n}), | |
60527824 | 385 | '<Document><Para>I like <L raw="Perl B<<< Error E<77>essages >>>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' |
351625bd SP |
386 | ); |
387 | ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>.\n}), | |
60527824 | 388 | '<Document><Para>I like <L raw="Perl B<<< Error E<77>essages >>>|perldiag" to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' |
351625bd SP |
389 | ); |
390 | ||
391 | ||
392 | ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>.\n}), | |
60527824 | 393 | '<Document><Para>I like <L raw="SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>"" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>' |
351625bd SP |
394 | ); |
395 | ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>.\n}), | |
60527824 | 396 | '<Document><Para>I like <L raw="SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>' |
351625bd SP |
397 | ); |
398 | ||
399 | ||
400 | ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/"Member Data" >>>.\n}), | |
60527824 | 401 | '<Document><Para>I like <L raw="the F<< various >> attributes|/"Member Data"" section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>' |
351625bd SP |
402 | ); |
403 | ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/Member Data >>>.\n}), | |
60527824 | 404 | '<Document><Para>I like <L raw="the F<< various >> attributes|/Member Data" section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>' |
351625bd SP |
405 | ); |
406 | ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|"Member Data" >>>.\n}), | |
60527824 | 407 | '<Document><Para>I like <L raw="the F<< various >> attributes|"Member Data"" section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>' |
351625bd SP |
408 | ); |
409 | ||
69473a20 | 410 | ok( $x->_out(qq{=pod\n\nI like L<<< B<text>s|http://text.com >>>.\n}), |
60527824 | 411 | '<Document><Para>I like <L raw="B<text>s|http://text.com" to="http://text.com" type="url"><B>text</B>s</L>.</Para></Document>' |
69473a20 SP |
412 | ); |
413 | ok( $x->_out(qq{=pod\n\nI like L<<< text|https://text.com/1/2 >>>.\n}), | |
60527824 | 414 | '<Document><Para>I like <L raw="text|https://text.com/1/2" to="https://text.com/1/2" type="url">text</L>.</Para></Document>' |
69473a20 SP |
415 | ); |
416 | ok( $x->_out(qq{=pod\n\nI like L<<< I<text>|http://text.com >>>.\n}), | |
60527824 | 417 | '<Document><Para>I like <L raw="I<text>|http://text.com" to="http://text.com" type="url"><I>text</I></L>.</Para></Document>' |
69473a20 SP |
418 | ); |
419 | ok( $x->_out(qq{=pod\n\nI like L<<< C<text>|http://text.com >>>.\n}), | |
60527824 | 420 | '<Document><Para>I like <L raw="C<text>|http://text.com" to="http://text.com" type="url"><C>text</C></L>.</Para></Document>' |
69473a20 SP |
421 | ); |
422 | ok( $x->_out(qq{=pod\n\nI like L<<< I<tI<eI<xI<t>>>>|mailto:earlE<64>text.com >>>.\n}), | |
60527824 | 423 | '<Document><Para>I like <L raw="I<tI<eI<xI<t>>>>|mailto:earlE<64>text.com" to="mailto:earl@text.com" type="url"><I>t<I>e<I>x<I>t</I></I></I></I></L>.</Para></Document>' |
69473a20 SP |
424 | ); |
425 | ok( $x->_out(qq{=pod\n\nI like L<<< textZ<>|http://text.com >>>.\n}), | |
60527824 | 426 | '<Document><Para>I like <L raw="textZ<>|http://text.com" to="http://text.com" type="url">text</L>.</Para></Document>' |
69473a20 SP |
427 | ); |
428 | ||
429 | ||
430 | ||
351625bd SP |
431 | |
432 | # | |
433 | # TODO: S testing. | |
434 | # | |
435 | ||
436 | ########################################################################### | |
437 | ||
438 | print "# Wrapping up... one for the road...\n"; | |
439 | ok 1; | |
440 | print "# --- Done with ", __FILE__, " --- \n"; | |
441 | ||
442 |