git.maemo.org Git - pkg-perl/blob - deb-src/libpod-simple-perl/libpod-simple-perl-3.07/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 &ok(e(
  29 "=begin :foo\n\n=begin :bar\n\nZaz\n\n",
  30 "=begin :foo\n\n=begin :bar\n\nZaz\n\n=end :bar\n\n=end :foo\n\n",
  31 ));
  32
  33
  34 print "# Ending ", __FILE__, "\n";
  35 ok 1;
  36
  37 __END__
  38
  39