Commit | Line | Data |
---|---|---|
9dd0d393 CBW |
1 | # Testing the =item directive |
2 | BEGIN { | |
3 | if($ENV{PERL_CORE}) { | |
4 | chdir 't'; | |
5 | @INC = '../lib'; | |
6 | } | |
7 | } | |
8 | ||
9 | use strict; | |
10 | use Test; | |
11 | BEGIN { plan tests => 4 }; | |
12 | ||
13 | my $d; | |
14 | #use Pod::Simple::Debug (\$d,0); | |
15 | ||
16 | ok 1; | |
17 | ||
18 | use Pod::Simple::DumpAsXML; | |
19 | use Pod::Simple::XMLOutStream; | |
20 | print "# Pod::Simple version $Pod::Simple::VERSION\n"; | |
21 | sub e ($$) { Pod::Simple::DumpAsXML->_duo(@_) } | |
22 | ||
23 | my $x = 'Pod::Simple::XMLOutStream'; | |
24 | ||
25 | print "##### Tests for =item directives via class $x\n"; | |
26 | ||
27 | $Pod::Simple::XMLOutStream::ATTR_PAD = ' '; | |
28 | $Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output | |
29 | ||
30 | ||
31 | print "#\n# Tests for =item [number] that are icky...\n"; | |
32 | ok( $x->_out(sub { $_[0]->no_errata_section(1) }, | |
33 | "\n=over\n\n=item 5\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item 4\n\nQuux\n\n=back\n\n"), | |
34 | '<Document><over-text indent="4"><item-text>5</item-text><Para>Stuff</Para><item-text>4</item-text><Para>Quux</Para></over-text></Document>' | |
35 | ); | |
36 | ||
37 | ok( $x->_out(sub { $_[0]->no_errata_section(1) }, | |
38 | "\n=over\n\n=item 5.\n\nStuff\n\n=cut\n\nCrunk\nZorp\n\n=item 4.\n\nQuux\n\n=back\n\n"), | |
39 | '<Document><over-text indent="4"><item-text>5.</item-text><Para>Stuff</Para><item-text>4.</item-text><Para>Quux</Para></over-text></Document>' | |
40 | ); | |
41 | ||
42 | ||
43 | print "# Wrapping up... one for the road...\n"; | |
44 | ok 1; | |
45 | print "# --- Done with ", __FILE__, " --- \n"; | |
46 |