← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/horae/intrepid

« back to all changes in this revision

Viewing changes to 0CPAN/Pod-Simple-3.03/t/fcodes_ell.t

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

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