Commit | Line | Data |
---|---|---|
9c7c0c6c | 1 | # head ends over |
351625bd SP |
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 => 5 }; | |
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::XMLOutStream::->_duo(\&nowhine, @_) } | |
22 | ||
23 | sub nowhine { | |
24 | $_[0]->{'no_whining'} = 1; | |
25 | } | |
26 | ||
27 | &ok(e( | |
28 | "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=head1 SVUP\n\nMyup.", | |
29 | "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=back\n\n=head1 SVUP\n\nMyup.", | |
30 | )); | |
31 | ||
32 | &ok(e( | |
33 | "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=head2 SVUP\n\nMyup.", | |
34 | "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=back\n\n=head2 SVUP\n\nMyup.", | |
35 | )); | |
36 | ||
37 | &ok(e( | |
38 | "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=head3 SVUP\n\nMyup.", | |
39 | "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=back\n\n=head3 SVUP\n\nMyup.", | |
40 | )); | |
41 | ||
42 | &ok(e( | |
43 | "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=head4 SVUP\n\nMyup.", | |
44 | "=head2 BLOOP\n\nHoopbehwo!\n\n=over\n\n=item Stuff. Um.\n\nBrop.\n\n=back\n\n=head4 SVUP\n\nMyup.", | |
45 | )); | |
46 | ||
47 | ||
48 | __END__ | |
49 | ||
50 |