← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/horae/jaunty

« back to all changes in this revision

Viewing changes to 0CPAN/Pod-Simple-3.03/t/x_nixer.t

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
0CPAN/Pod-Simple-3.03/t/x_nixer.t
1
 
 
2
 
 
3
 
use strict;
4
 
use Test;
5
 
BEGIN { plan tests => 11 };
6
 
 
7
 
my $d;
8
 
#use Pod::Simple::Debug (\$d, 0);
9
 
 
10
 
ok 1;
11
 
 
12
 
use Pod::Simple::XMLOutStream;
13
 
use Pod::Simple::DumpAsXML;
14
 
 
15
 
 
16
 
$Pod::Simple::XMLOutStream::ATTR_PAD   = ' ';
17
 
$Pod::Simple::XMLOutStream::SORT_ATTRS = 1; # for predictably testable output
18
 
 
19
 
 
20
 
print "# A simple sanity test...\n";
21
 
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
22
 
 '<Document><Para><F><C>foo</C> <I>bar</I></F> <B>stuff <X>thing</X>baz</B></Para></Document>'
23
 
);
24
 
 
25
 
print "# With lots of nesting, and Z's...\n";
26
 
ok( Pod::Simple::XMLOutStream->_out("=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
27
 
 '<Document><Para><F><C>foo</C> <I>bar</I></F> <B>stuff <X>thing</X>baz</B></Para></Document>'
28
 
);
29
 
 
30
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
31
 
 
32
 
sub mergy {$_[0]->merge_text(1)}
33
 
sub nixy  {$_[0]->nix_X_codes(1)}
34
 
sub nixy_mergy {$_[0]->merge_text(1); $_[0]->nix_X_codes(1);}
35
 
 
36
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
37
 
 
38
 
print "# With no F/X\n";
39
 
 
40
 
ok( Pod::Simple::DumpAsXML->_out( "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
41
 
  join "\n",
42
 
 
43
 
  '<Document>',
44
 
  '  <Para>',
45
 
  '    <F>',
46
 
  '      <C>',
47
 
  '        f',
48
 
  '        o',
49
 
  '        o',
50
 
  '      </C>',
51
 
  '       ',
52
 
  '      <I>',
53
 
  '        bar',
54
 
  '      </I>',
55
 
  '    </F>',
56
 
  '     ',
57
 
  '    <B>',
58
 
  '      stuff ',
59
 
  '      <X>',
60
 
  '        thing',
61
 
  '      </X>',
62
 
  '      baz',
63
 
  '    </B>',
64
 
  '  </Para>',
65
 
  '</Document>',
66
 
  '',
67
 
);
68
 
 
69
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
70
 
 
71
 
print "#  with just X-nixing...\n";
72
 
 
73
 
ok( Pod::Simple::DumpAsXML->_out( \&nixy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
74
 
  join "\n",
75
 
 
76
 
  '<Document>',
77
 
  '  <Para>',
78
 
  '    <F>',
79
 
  '      <C>',
80
 
  '        f',
81
 
  '        o',
82
 
  '        o',
83
 
  '      </C>',
84
 
  '       ',
85
 
  '      <I>',
86
 
  '        bar',
87
 
  '      </I>',
88
 
  '    </F>',
89
 
  '     ',
90
 
  '    <B>',
91
 
  '      stuff ',
92
 
  '      baz',
93
 
  '    </B>',
94
 
  '  </Para>',
95
 
  '</Document>',
96
 
  '',
97
 
);
98
 
 
99
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
100
 
 
101
 
print "# With merging...\n";
102
 
 
103
 
ok( Pod::Simple::DumpAsXML->_out( \&mergy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
104
 
  join "\n",
105
 
 
106
 
  '<Document>',
107
 
  '  <Para>',
108
 
  '    <F>',
109
 
  '      <C>',
110
 
  '        foo',
111
 
  '      </C>',
112
 
  '       ',
113
 
  '      <I>',
114
 
  '        bar',
115
 
  '      </I>',
116
 
  '    </F>',
117
 
  '     ',
118
 
  '    <B>',
119
 
  '      stuff ',
120
 
  '      <X>',
121
 
  '        thing',
122
 
  '      </X>',
123
 
  '      baz',
124
 
  '    </B>',
125
 
  '  </Para>',
126
 
  '</Document>',
127
 
  '',
128
 
);
129
 
 
130
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
131
 
 
132
 
print "# With nixing and merging...\n";
133
 
#$d = 10;
134
 
ok( Pod::Simple::DumpAsXML->_out( \&nixy_mergy, "=pod\n\nZ<>F<C<Z<>fE<111>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
135
 
  join "\n",
136
 
 
137
 
  '<Document>',
138
 
  '  <Para>',
139
 
  '    <F>',
140
 
  '      <C>',
141
 
  '        foo',
142
 
  '      </C>',
143
 
  '       ',
144
 
  '      <I>',
145
 
  '        bar',
146
 
  '      </I>',
147
 
  '    </F>',
148
 
  '     ',
149
 
  '    <B>',
150
 
  '      stuff baz',
151
 
  '    </B>',
152
 
  '  </Para>',
153
 
  '</Document>',
154
 
  '',
155
 
);
156
 
 
157
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
158
 
 
159
 
# Now the scary bits... with L's!
160
 
print "# A wee L<...> sanity test...\n";
161
 
ok( Pod::Simple::XMLOutStream->_out(qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}),
162
 
 '<Document><Para><L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">&#34;Ping-pong&#34; in Net::Ping</L></Para></Document>'
163
 
);
164
 
print "# Now a wee L<...> with mergy...\n";
165
 
 
166
 
$d = 10;
167
 
 
168
 
ok( Pod::Simple::DumpAsXML->_out(\&mergy, qq{=pod\n\nL<E<78>et::Ping/Ping-E<112>ong>\n}),
169
 
 join "\n",
170
 
 
171
 
 '<Document>',
172
 
 '  <Para>',
173
 
 '    <L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">',
174
 
 '      &#34;Ping-pong&#34; in Net::Ping',
175
 
 '    </L>',
176
 
 '  </Para>',
177
 
 '</Document>',
178
 
 ''
179
 
);
180
 
 
181
 
 
182
 
print "# Now a complex tree with L's, with nixy+mergy...\n";
183
 
 
184
 
ok( Pod::Simple::DumpAsXML->_out( \&nixy_mergy, "=pod\n\nZ<>F<C<Z<>fE<111>L<E<78>et::Ping/Ping-E<112>ong>o> I<bar>> B<stuff X<thingZ<>>baz>\n"),
185
 
  join "\n",
186
 
 
187
 
  '<Document>',
188
 
  '  <Para>',
189
 
  '    <F>',
190
 
  '      <C>',
191
 
  '        fo',
192
 
  '        <L content-implicit="yes" section="Ping-pong" to="Net::Ping" type="pod">',
193
 
  '          &#34;Ping-pong&#34; in Net::Ping',
194
 
  '        </L>',
195
 
  '        o',
196
 
  '      </C>',
197
 
  '       ',
198
 
  '      <I>',
199
 
  '        bar',
200
 
  '      </I>',
201
 
  '    </F>',
202
 
  '     ',
203
 
  '    <B>',
204
 
  '      stuff baz',
205
 
  '    </B>',
206
 
  '  </Para>',
207
 
  '</Document>',
208
 
  '',
209
 
);
210
 
 
211
 
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
212
 
 
213
 
 
214
 
 
215
 
print "# Wrapping up... one for the road...\n";
216
 
ok 1;
217
 
print "# --- Done with ", __FILE__, " --- \n";
218