1BEGIN {
2    if($ENV{PERL_CORE}) {
3        chdir 't';
4        @INC = '../lib';
5    }
6}
7
8use strict;
9use warnings;
10use Test;
11BEGIN { plan tests => 5 };
12
13ok 1;
14
15use Pod::Simple::XMLOutStream;
16print "# Pod::Simple version $Pod::Simple::VERSION\n";
17
18my $x = 'Pod::Simple::XMLOutStream';
19$Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
20$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
21
22sub on {shift->parse_empty_lists(1)}
23sub off {shift->parse_empty_lists(0)}
24
25my $pod = <<POD;
26=over
27
28=over
29
30=over
31
32=over
33
34=back
35
36=over
37
38=back
39
40=back
41
42=back
43
44=back
45POD
46
47#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
48
49print "# Testing default behavior (parse_empty_lists( FALSE )) ...\n";
50
51ok( $x->_out($pod),
52  '<Document><over-block indent="4"><over-block indent="4"><over-block indent="4"></over-block></over-block></over-block></Document>'
53);
54
55print "# Testing explicit parse_empty_lists( FALSE ) ...\n";
56
57ok( $x->_out(\&off, $pod),
58  '<Document><over-block indent="4"><over-block indent="4"><over-block indent="4"></over-block></over-block></over-block></Document>'
59);
60
61print "# Testing parse_empty_lists( TRUE ) ...\n";
62
63ok( $x->_out(\&on, $pod),
64  '<Document><over-block indent="4"><over-block indent="4"><over-block indent="4"><over-empty indent="4"></over-empty><over-empty indent="4"></over-empty></over-block></over-block></over-block></Document>'
65);
66
67print "# Wrapping up... one for the road...\n";
68ok 1;
69print "# --- Done with ", __FILE__, " --- \n";
70
71