git.maemo.org Git - dh-make-perl/blob - dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/t/fcodes_e.t

   1 # fcodes E
   2 BEGIN {
   3     if($ENV{PERL_CORE}) {
   4         chdir 't';
   5         @INC = '../lib';
   6     }
   7 }
   8
   9 use strict;
  10 use Test;
  11 BEGIN { plan tests => 20 };
  12
  13 #use Pod::Simple::Debug (6);
  14
  15 ok 1;
  16
  17 use Pod::Simple::DumpAsXML;
  18 use Pod::Simple::XMLOutStream;
  19
  20 print "# Pod::Simple version $Pod::Simple::VERSION\n";
  21
  22 print "# Pod::Escapes version $Pod::Escapes::VERSION\n",
  23  if $Pod::Escapes::VERSION;
  24 # Presumably that's the library being used
  25
  26
  27 sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) }
  28
  29 &ok( e "", "" );
  30 &ok( e "\n", "", );
  31
  32
  33 print "# Testing some basic mnemonic E sequences...\n";
  34
  35 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<lt>2\n"),
  36      Pod::Simple::XMLOutStream->_out("=pod\n\n1<2")
  37 );
  38 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<gt>2\n"),
  39      Pod::Simple::XMLOutStream->_out("=pod\n\n1>2")
  40 );
  41 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<verbar>2\n"),
  42      Pod::Simple::XMLOutStream->_out("=pod\n\n1|2")
  43 );
  44 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<sol>2\n"),
  45      Pod::Simple::XMLOutStream->_out("=pod\n\n1/2\n")
  46 );
  47
  48
  49 print "# Testing some more mnemonic E sequences...\n";
  50
  51 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<apos>2\n"),
  52      Pod::Simple::XMLOutStream->_out("=pod\n\n1'2")
  53 );
  54 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<quot>2\n"),
  55      Pod::Simple::XMLOutStream->_out("=pod\n\n1\"2")
  56 );
  57 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1&2"),
  58      Pod::Simple::XMLOutStream->_out("=pod\n\n1E<amp>2\n")
  59 );
  60 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<eacute>2"),
  61      Pod::Simple::XMLOutStream->_out("=pod\n\n1E<233>2\n")
  62 );
  63 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<infin>2"),
  64      Pod::Simple::XMLOutStream->_out("=pod\n\n1E<8734>2\n")
  65 );
  66
  67 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<lchevron>2"),
  68      Pod::Simple::XMLOutStream->_out("=pod\n\n1E<171>2\n")
  69 );
  70 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<rchevron>2"),
  71      Pod::Simple::XMLOutStream->_out("=pod\n\n1E<187>2\n")
  72 );
  73 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<laquo>2"),
  74      Pod::Simple::XMLOutStream->_out("=pod\n\n1E<171>2\n")
  75 );
  76 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<raquo>2"),
  77      Pod::Simple::XMLOutStream->_out("=pod\n\n1E<187>2\n")
  78 );
  79
  80
  81
  82 print "# Testing numeric E sequences...\n";
  83 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<0101>2\n"),
  84      Pod::Simple::XMLOutStream->_out("=pod\n\n1A2")
  85 );
  86 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<65>2\n"),
  87      Pod::Simple::XMLOutStream->_out("=pod\n\n1A2")
  88 );
  89 &ok( Pod::Simple::XMLOutStream->_out("=pod\n\n1E<0x41>2\n"),
  90      Pod::Simple::XMLOutStream->_out("=pod\n\n1A2")
  91 );
  92
  93
  94
  95 print "# Wrapping up... one for the road...\n";
  96 ok 1;
  97 print "# --- Done with ", __FILE__, " --- \n";
  98
  99