lib/Pod/Simple/t/fcodes_s.t

   1 BEGIN {
   2     if($ENV{PERL_CORE}) {
   3         chdir 't';
   4         @INC = '../lib';
   5     }
   6 }
   7
   8 use strict;
   9 use Test;
  10 BEGIN { plan tests => 13 };
  11
  12 #use Pod::Simple::Debug (6);
  13
  14 ok 1;
  15
  16 use Pod::Simple::XMLOutStream;
  17 print "# Pod::Simple version $Pod::Simple::VERSION\n";
  18 my $x = 'Pod::Simple::XMLOutStream';
  19 sub e ($$) { $x->_duo(@_) }
  20
  21 $Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
  22 $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
  23
  24
  25 print "# S as such...\n";
  26
  27 ok( $x->_out("=pod\n\nI like S<bric-a-brac>.\n"),
  28  =>  '<Document><Para>I like <S>bric-a-brac</S>.</Para></Document>' );
  29 ok( $x->_out("=pod\n\nI like S<bric-a-brac a gogo >.\n"),
  30  =>  '<Document><Para>I like <S>bric-a-brac a gogo </S>.</Para></Document>' );
  31 ok( $x->_out("=pod\n\nI like S<< bric-a-brac a gogo >>.\n"),
  32  =>  '<Document><Para>I like <S>bric-a-brac a gogo</S>.</Para></Document>' );
  33
  34 my $unless_ascii = (chr(65) eq 'A') ? '' :
  35  "Skip because not in ASCIIland";
  36
  37 skip( $unless_ascii,
  38     $x->_out( sub { $_[0]->nbsp_for_S(1) },
  39     "=pod\n\nI like S<bric-a-brac a gogo>.\n"),
  40 '<Document><Para>I like bric-a-brac&#160;a&#160;gogo.</Para></Document>'
  41 );
  42 skip( $unless_ascii,
  43     $x->_out( sub { $_[0]->nbsp_for_S(1) },
  44     qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n}),
  45 '<Document><Para>I like <L content-implicit="yes" section="bric-a-brac a gogo" type="pod">&#34;bric-a-brac&#160;a&#160;gogo&#34;</L>.</Para></Document>'
  46 );
  47 skip( $unless_ascii,
  48     $x->_out( sub { $_[0]->nbsp_for_S(1) },
  49     qq{=pod\n\nI like S<L<Stuff like that|/"bric-a-brac a gogo">>.\n}),
  50 '<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff&#160;like&#160;that</L>.</Para></Document>'
  51 );
  52 skip( $unless_ascii,
  53     $x->_out( sub { $_[0]->nbsp_for_S(1) },
  54     qq{=pod\n\nI like S<L<Stuff I<like that>|/"bric-a-brac a gogo">>.\n}),
  55 '<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff&#160;<I>like&#160;that</I></L>.</Para></Document>'
  56 );
  57
  58 &ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) },
  59   "=pod\n\nI like S<bric-a-brac a gogo>.\n",
  60   "=pod\n\nI like bric-a-bracE<160>aE<160>gogo.\n",
  61 ));
  62 &ok(
  63   map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z }
  64   $x->_duo( sub { $_[0]->nbsp_for_S(1) },
  65     qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n},
  66     qq{=pod\n\nI like L<"bric-a-bracE<160>aE<160>gogo"|/"bric-a-brac a gogo">.\n},
  67 ));
  68 &ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) },
  69     qq{=pod\n\nI like S<L<Stuff like that|"bric-a-brac a gogo">>.\n},
  70     qq{=pod\n\nI like L<StuffE<160>likeE<160>that|"bric-a-brac a gogo">.\n},
  71 ));
  72 &ok(
  73   map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z }
  74   $x->_duo( sub { $_[0]->nbsp_for_S(1) },
  75     qq{=pod\n\nI like S<L<Stuff I<like that>|"bric-a-brac a gogo">>.\n},
  76     qq{=pod\n\nI like L<StuffE<160>I<likeE<160>that>|"bric-a-brac a gogo">.\n},
  77 ));
  78
  79
  80
  81 print "# Wrapping up... one for the road...\n";
  82 ok 1;
  83 print "# --- Done with ", __FILE__, " --- \n";
  84