closeys.t

来自「source of perl for linux application,」· T 代码 · 共 40 行

BEGIN {
    if($ENV{PERL_CORE}) {
        chdir 't';
        @INC = '../lib';
    }
}

use strict;
use Test;
BEGIN { plan tests => 3 };

my $d;
#use Pod::Simple::Debug (\$d,0);
#use Pod::Simple::Debug (10);

ok 1;

use Pod::Simple::DumpAsXML;
use Pod::Simple::XMLOutStream;
print "# Pod::Simple version $Pod::Simple::VERSION\n";
sub e     ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) }

sub nowhine {
#  $_[0]->{'no_whining'} = 1;
  $_[0]->accept_targets("*");
}

&ok(e(
"=begin :foo\n\n=begin :bar\n\nZaz\n\n",
"=begin :foo\n\n=begin :bar\n\nZaz\n\n=end :bar\n\n=end :foo\n\n",
));


print "# Ending ", __FILE__, "\n";
ok 1;

__END__