1# fcodes L 2BEGIN { 3 if($ENV{PERL_CORE}) { 4 chdir 't'; 5 @INC = '../lib'; 6 } 7} 8 9use strict; 10use Test; 11BEGIN { plan tests => 99 }; 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">"Ping-pong" 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">"Ping-pong" 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">"Object Methods"</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">"Object Methods"</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">"Object Methods"</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">"Ping-pong" 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">"Ping-pong" 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">"Object Methods"</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">"Object Methods"</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">"Object Methods"</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">"Ping-pong" 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">"Ping-pong" 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">"Object Methods"</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">"Object Methods"</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">"Object Methods"</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">"Ping-pong" 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">"Ping-pong" 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">"Object Methods"</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">"Object Methods"</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">"Object Methods"</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">"Ping-pong" 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">"Ping-pong" 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">"Object Methods"</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">"Object Methods"</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">"Object Methods"</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">"Ping-<B>pong</B>" 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">"Ping-<B>pong</B>" 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">"<B>Object</B> Methods"</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">"<B>Object</B> Methods"</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">"<B>Object</B> Methods"</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">"Ping-<B>pong</B>" 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">"Ping-<B>pong</B>" 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">"<B>Object</B> Methods"</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">"<B>Object</B> Methods"</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">"<B>Object</B> Methods"</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">"Ping-<B>pong</B>" 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">"Ping-<B>pong</B>" 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">"<B>Object</B> Methods"</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">"<B>Object</B> Methods"</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">"<B>Object</B> Methods"</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}), 340 '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' 341); 342ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>\n}), 343 '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' 344); 345ok( $x->_out(qq{=pod\n\nL<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>\n}), 346 '<Document><Para><L to="perldiag" type="pod">Perl <B>Error Messages</B></L></Para></Document>' 347); 348 349 350ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/"Basic I<<<< BLOCKs >>>> and Switch StatementE<115>" >>\n}), 351 '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' 352); 353ok( $x->_out(qq{=pod\n\nL<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>\n}), 354 '<Document><Para><L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L></Para></Document>' 355); 356 357 358ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/"Member Data" >>>\n}), 359 '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' 360); 361ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|/Member Data >>>\n}), 362 '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' 363); 364ok( $x->_out(qq{=pod\n\nL<<< the F<< various >> attributes|"Member Data" >>>\n}), 365 '<Document><Para><L section="Member Data" type="pod">the <F>various</F> attributes</L></Para></Document>' 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}), 374 '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' 375); 376ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\nE<77>essages >>>|perldiag >>.\n}), 377 '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' 378); 379ok( $x->_out(qq{=pod\n\nI like L<< Perl\nB<<< Error\t E<77>essages >>>|perldiag >>.\n}), 380 '<Document><Para>I like <L to="perldiag" type="pod">Perl <B>Error Messages</B></L>.</Para></Document>' 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}), 385 '<Document><Para>I like <L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>' 386); 387ok( $x->_out(qq{=pod\n\nI like L<< SWITCH B<<< E<115>tatements >>>|perlsyn/Basic I<<<< BLOCKs >>>> and Switch StatementE<115> >>.\n}), 388 '<Document><Para>I like <L section="Basic BLOCKs and Switch Statements" to="perlsyn" type="pod">SWITCH <B>statements</B></L>.</Para></Document>' 389); 390 391 392ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/"Member Data" >>>.\n}), 393 '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>' 394); 395ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|/Member Data >>>.\n}), 396 '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>' 397); 398ok( $x->_out(qq{=pod\n\nI like L<<< the F<< various >> attributes|"Member Data" >>>.\n}), 399 '<Document><Para>I like <L section="Member Data" type="pod">the <F>various</F> attributes</L>.</Para></Document>' 400); 401 402ok( $x->_out(qq{=pod\n\nI like L<<< B<text>s|http://text.com >>>.\n}), 403'<Document><Para>I like <L to="http://text.com" type="url"><B>text</B>s</L>.</Para></Document>' 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}), 409'<Document><Para>I like <L to="http://text.com" type="url"><I>text</I></L>.</Para></Document>' 410); 411ok( $x->_out(qq{=pod\n\nI like L<<< C<text>|http://text.com >>>.\n}), 412'<Document><Para>I like <L to="http://text.com" type="url"><C>text</C></L>.</Para></Document>' 413); 414ok( $x->_out(qq{=pod\n\nI like L<<< I<tI<eI<xI<t>>>>|mailto:earlE<64>text.com >>>.\n}), 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>' 416); 417ok( $x->_out(qq{=pod\n\nI like L<<< textZ<>|http://text.com >>>.\n}), 418'<Document><Para>I like <L to="http://text.com" type="url">text</L>.</Para></Document>' 419); 420 421 422 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 435