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