1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
BEGIN {
if($ENV{PERL_CORE}) {
chdir 't';
@INC = '../lib';
}
}
use strict;
use Test;
BEGIN { plan tests => 14 };
#use Pod::Simple::Debug (6);
ok 1;
use Pod::Simple::XMLOutStream;
print "# Pod::Simple version $Pod::Simple::VERSION\n";
my $x = 'Pod::Simple::XMLOutStream';
sub e ($$) { $x->_duo(@_) }
$Pod::Simple::XMLOutStream::ATTR_PAD = ' ';
$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
print "# S as such...\n";
ok( $x->_out("=pod\n\nI like S<bric-a-brac>.\n"),
=> '<Document><Para>I like <S>bric-a-brac</S>.</Para></Document>' );
ok( $x->_out("=pod\n\nI like S<bric-a-brac a gogo >.\n"),
=> '<Document><Para>I like <S>bric-a-brac a gogo </S>.</Para></Document>' );
ok( $x->_out("=pod\n\nI like S<< bric-a-brac a gogo >>.\n"),
=> '<Document><Para>I like <S>bric-a-brac a gogo</S>.</Para></Document>' );
my $unless_ascii = (chr(65) eq 'A') ? '' :
"Skip because not in ASCIIland";
skip( $unless_ascii,
$x->_out( sub { $_[0]->nbsp_for_S(1) },
"=pod\n\nI like S<bric-a-brac a gogo>.\n"),
'<Document><Para>I like bric-a-brac a gogo.</Para></Document>'
);
skip( $unless_ascii,
$x->_out( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n}),
'<Document><Para>I like <L content-implicit="yes" section="bric-a-brac a gogo" type="pod">"bric-a-brac a gogo"</L>.</Para></Document>'
);
skip( $unless_ascii,
$x->_out( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L<Stuff like that|/"bric-a-brac a gogo">>.\n}),
'<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff like that</L>.</Para></Document>'
);
skip( $unless_ascii,
$x->_out( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L<Stuff I<like that>|/"bric-a-brac a gogo">>.\n}),
'<Document><Para>I like <L section="bric-a-brac a gogo" type="pod">Stuff <I>like that</I></L>.</Para></Document>'
);
&ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) },
"=pod\n\nI like S<bric-a-brac a gogo>.\n",
"=pod\n\nI like bric-a-bracE<160>aE<160>gogo.\n",
));
&ok(
map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z }
$x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L</"bric-a-brac a gogo">>.\n},
qq{=pod\n\nI like L<"bric-a-bracE<160>aE<160>gogo"|/"bric-a-brac a gogo">.\n},
));
&ok( $x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L<Stuff like that|"bric-a-brac a gogo">>.\n},
qq{=pod\n\nI like L<StuffE<160>likeE<160>that|"bric-a-brac a gogo">.\n},
));
&ok(
map {my $z = $_; $z =~ s/content-implicit="yes" //g; $z }
$x->_duo( sub { $_[0]->nbsp_for_S(1) },
qq{=pod\n\nI like S<L<Stuff I<like that>|"bric-a-brac a gogo">>.\n},
qq{=pod\n\nI like L<StuffE<160>I<likeE<160>that>|"bric-a-brac a gogo">.\n},
));
use Pod::Simple::Text;
$x = Pod::Simple::Text->new;
$x->preserve_whitespace(1);
# RT#25679
ok(
$x->_out(<<END
=head1 The Tk::mega manpage showed me how C<< SE<lt> E<gt> foo >> is being rendered
Both pod2text and pod2man S< > lose the rest of the line
=head1 Do they always S< > lose the rest of the line?
=cut
END
),
<<END
The Tk::mega manpage showed me how S< > foo is being rendered
Both pod2text and pod2man lose the rest of the line
Do they always lose the rest of the line?
END
);
print "# Wrapping up... one for the road...\n";
ok 1;
print "# --- Done with ", __FILE__, " --- \n";
|
