1BEGIN {
2    if($ENV{PERL_CORE}) {
3        chdir 't';
4        @INC = '../lib';
5    }
6}
7
8use strict;
9use Test;
10BEGIN { plan tests => 3 };
11
12my $d;
13#use Pod::Simple::Debug (\$d,0);
14#use Pod::Simple::Debug (10);
15
16ok 1;
17
18use Pod::Simple::DumpAsXML;
19use Pod::Simple::XMLOutStream;
20print "# Pod::Simple version $Pod::Simple::VERSION\n";
21sub e     ($$) { Pod::Simple::XMLOutStream::->_duo(\&nowhine, @_) }
22
23sub nowhine {
24#  $_[0]->{'no_whining'} = 1;
25  $_[0]->accept_targets("*");
26}
27
28local $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
35print "# Ending ", __FILE__, "\n";
36ok 1;
37
38__END__
39
40
41