cpan/Pod-Simple/t/closeys.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 => 3 };
  11
  12 my $d;
  13 #use Pod::Simple::Debug (\$d,0);
  14 #use Pod::Simple::Debug (10);
  15
  16 ok 1;
  17
  18 use Pod::Simple::DumpAsXML;
  19 use Pod::Simple::XMLOutStream;
  20 print "# Pod::Simple version $Pod::Simple::VERSION\n";
  21 sub e     ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) }
  22
  23 sub nowhine {
  24 #  $_[0]->{'no_whining'} = 1;
  25   $_[0]->accept_targets("*");
  26 }
  27
  28 local $Pod::Simple::XMLOutStream::SORT_ATTRS = 1;
  29 &ok(e(
  30 "=begin :foo\n\n=begin :bar\n\nZaz\n\n",
  31 "=begin :foo\n\n=begin :bar\n\nZaz\n\n=end :bar\n\n=end :foo\n\n",
  32 ));
  33
  34
  35 print "# Ending ", __FILE__, "\n";
  36 ok 1;
  37
  38 __END__
  39
  40