1use strict;
2use warnings;
3use Test::More tests => 1;
4
5BEGIN {
6  require FindBin;
7  unshift @INC, $FindBin::Bin . '/lib';
8}
9use helpers qw(f);
10
11my $d;
12#use Pod::Simple::Debug (\$d,0);
13#use Pod::Simple::Debug (10);
14
15use Pod::Simple::DumpAsXML;
16use Pod::Simple::XMLOutStream;
17print "# Pod::Simple version $Pod::Simple::VERSION\n";
18
19sub nowhine {
20#  $_[0]->{'no_whining'} = 1;
21  $_[0]->accept_targets("*");
22}
23
24local $Pod::Simple::XMLOutStream::SORT_ATTRS = 1;
25&is(f(
26    \&nowhine,
27"=begin :foo\n\n=begin :bar\n\nZaz\n\n",
28"=begin :foo\n\n=begin :bar\n\nZaz\n\n=end :bar\n\n=end :foo\n\n",
29));
30