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