Move Pod::Parser from ext/ to cpan/
[perl.git] / ext / Pod-Simple / t / pulltitl.t
1 BEGIN {
2     if($ENV{PERL_CORE}) {
3         chdir 't';
4         @INC = '../lib';
5     }
6 }
7
8 use strict;
9 use Test;
10 BEGIN { plan tests => 104 };
11
12 #use Pod::Simple::Debug (5);
13
14 #sub Pod::Simple::MANY_LINES () {1}
15 #sub Pod::Simple::PullParser::DEBUG () {3}
16
17
18 use Pod::Simple::PullParser;
19
20 ok 1;
21
22 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
23 ###########################################################################
24
25 {
26 print "# Testing another set, at line ", __LINE__, "\n";
27
28 my $p = Pod::Simple::PullParser->new;
29 $p->set_source( \qq{\n=head1 NAME\n\nBzorch\n\n=pod\n\nLala\n\n\=cut\n} );
30
31 ok $p->get_title(), 'Bzorch';
32 my $t;
33
34 ok( $t = $p->get_token);
35 ok( $t && $t->type, 'start');
36 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
37
38 ok( $t = $p->get_token);
39 ok( $t && $t->type, 'start');
40 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
41
42 ok( $t = $p->get_token);
43 ok( $t && $t->type, 'text');
44 ok( $t && $t->type eq 'text' && $t->text, 'NAME' );
45
46 }
47
48 ###########################################################################
49
50 {
51 print "# Testing another set, at line ", __LINE__, "\n";
52
53 my $p = Pod::Simple::PullParser->new;
54 $p->set_source( \qq{\n=head1 NE<65>ME\n\nBzorch\n\n=pod\n\nLala\n\n\=cut\n} );
55
56 ok $p->get_title(), 'Bzorch';
57 my $t;
58
59 ok( $t = $p->get_token);
60 ok( $t && $t->type, 'start');
61 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
62
63 ok( $t = $p->get_token);
64 ok( $t && $t->type, 'start');
65 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
66
67 ok( $t = $p->get_token);
68 ok( $t && $t->type, 'text');
69
70 }
71
72
73 ###########################################################################
74
75 {
76 print "# Testing another set, at line ", __LINE__, "\n";
77
78 {
79 my $p = Pod::Simple::PullParser->new;
80 $p->set_source( \qq{\n=head1 NAME\n\nBzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} );
81 ok $p->get_title(), 'Bzorch - thing lala';
82 }
83
84
85 my $p = Pod::Simple::PullParser->new;
86 $p->set_source( \qq{\n=head1 NAME\n\nBzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} );
87 ok $p->get_title(), 'Bzorch - thing lala';
88
89 my $t;
90
91 ok( $t = $p->get_token);
92 ok( $t && $t->type, 'start');
93 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
94
95 ok( $t = $p->get_token);
96 ok( $t && $t->type, 'start');
97 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
98
99 ok( $t = $p->get_token);
100 ok( $t && $t->type, 'text');
101 ok( $t && $t->type eq 'text' && $t->text, 'NAME' );
102
103 }
104
105 ###########################################################################
106
107 {
108 print "# Testing another set, at line ", __LINE__, "\n";
109
110 my $p = Pod::Simple::PullParser->new;
111 $p->set_source( \qq{\n=head1 Bzorch lala\n\n=pod\n\nLala\n\n\=cut\n} );
112
113 ok $p->get_title(), 'Bzorch lala';
114 my $t;
115
116 ok( $t = $p->get_token);
117 ok( $t && $t->type, 'start');
118 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
119
120 ok( $t = $p->get_token);
121 ok( $t && $t->type, 'start');
122 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
123
124 ok( $t = $p->get_token);
125 ok( $t && $t->type, 'text');
126 ok( $t && $t->type eq 'text' && $t->text, 'Bzorch lala' );
127
128 }
129
130 ###########################################################################
131
132 {
133 print "# Testing another set, at line ", __LINE__, "\n";
134
135 my $p = Pod::Simple::PullParser->new;
136 $p->set_source( \qq{\n=head1 Bzorch - I<thing> lala\n\n=pod\n\nLala\n\n\=cut\n} );
137
138 ok $p->get_title(), 'Bzorch - thing lala';
139 my $t;
140
141 ok( $t = $p->get_token);
142 ok( $t && $t->type, 'start');
143 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
144
145 ok( $t = $p->get_token);
146 ok( $t && $t->type, 'start');
147 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
148
149 ok( $t = $p->get_token);
150 ok( $t && $t->type, 'text');
151 ok( $t && $t->type eq 'text' && $t->text, 'Bzorch - ' );
152
153 }
154 ###########################################################################
155
156 {
157 print "# Testing another set, at line ", __LINE__, "\n";
158
159 my $p = Pod::Simple::PullParser->new;
160 $p->set_source( \qq{\n=head1 Nombre (NAME)\n\nBzorch - I<thing> lala\n\n=pod\n\nGrunk\n\n\=cut\n} );
161
162 ok $p->get_version || '', '';
163 ok $p->get_author  || '', '';
164
165 ok $p->get_title(), 'Bzorch - thing lala';
166
167 my $t;
168 ok( $t = $p->get_token);
169 ok( $t && $t->type, 'start');
170 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
171
172 }
173 ###########################################################################
174
175 {
176 print "# Testing another set, at line ", __LINE__, "\n";
177
178 my $p = Pod::Simple::PullParser->new;
179 $p->set_source( \qq{\n=head1 ����� ������ (NAME)\n\n����� ������ �� ����������� ������ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
180
181 ok $p->get_title(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
182 my $t;
183
184 ok( $t = $p->get_token);
185 ok( $t && $t->type, 'start');
186 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
187
188 }
189
190 ###########################################################################
191
192 {
193 print "# Testing another set, at line ", __LINE__, "\n";
194
195 my $p = Pod::Simple::PullParser->new;
196 $p->set_source( \qq{\n=head1 (NAME) ����� ������\n\n����� ������ �� ����������� ������ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
197
198 ok $p->get_title(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
199 my $t;
200
201 ok( $t = $p->get_token);
202 ok( $t && $t->type, 'start');
203 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
204
205 }
206
207 ###########################################################################
208
209 {
210 print "# Testing another set, at line ", __LINE__, "\n";
211
212 my $p = Pod::Simple::PullParser->new;
213 $p->set_source( \qq{\n=head1 (DESCRIPTION) ����� ������\n\n����� ������ �� ����������� ������ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
214
215 ok $p->get_title() || '', '';
216 ok $p->get_description(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
217 my $t;
218
219 ok( $t = $p->get_token);
220 ok( $t && $t->type, 'start');
221 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
222
223 }
224 ###########################################################################
225
226 {
227 print "# Testing another set, at line ", __LINE__, "\n";
228
229 my $p = Pod::Simple::PullParser->new;
230 $p->set_source( \qq{\n=head1 (DESCRIPTION) ����� ������\n\n����� ������ �� ����������� ������ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
231
232 ok $p->get_description(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
233 ok $p->get_title() || '', '';
234 my $t;
235
236 ok( $t = $p->get_token);
237 ok( $t && $t->type, 'start');
238 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
239
240 }
241
242 ###########################################################################
243
244 {
245 print "# Testing another set, at line ", __LINE__, "\n";
246
247 my $p = Pod::Simple::PullParser->new;
248 $p->set_source( \qq{\n=head1 NAME\n\nThingy\n\n=head1 (DESCRIPTION) ����� ������\n\n����� ������ �� ����������� ������ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
249
250 ok $p->get_description(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
251 ok $p->get_title(), "Thingy";
252 my $t;
253
254 ok( $t = $p->get_token);
255 ok( $t && $t->type, 'start');
256 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
257
258 }
259
260 ###########################################################################
261
262 {
263 print "# Testing another set, at line ", __LINE__, "\n";
264
265 my $p = Pod::Simple::PullParser->new;
266 $p->set_source( \qq{\n=head1 NAME\n\nThingy\n\n=head1 (DESCRIPTION) ����� ������\n\n����� ������ �� ����������� ������ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
267
268 ok $p->get_title(), "Thingy";
269 ok $p->get_description(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
270 my $t;
271
272 ok( $t = $p->get_token);
273 ok( $t && $t->type, 'start');
274 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
275
276 }
277
278 ###########################################################################
279
280 {
281 print "# Testing another set, at line ", __LINE__, "\n";
282
283 my $p = Pod::Simple::PullParser->new;
284 $p->set_source( \qq{\n=head1 (NAME) ����� �����\n\nThingy\n\n=head1 (DESCRIPTION) ����� ������\n\n����� ������ �� ����������� ������ -- Fet's I<"When you were> reading\n\n=pod\n\nGrunk\n\n\=cut\n} );
285
286 ok $p->get_title(), "Thingy";
287 ok $p->get_description(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
288 my $t;
289
290 ok( $t = $p->get_token);
291 ok( $t && $t->type, 'start');
292 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
293
294 }
295
296 ###########################################################################
297
298 {
299 print "# Testing another set, at line ", __LINE__, "\n";
300
301 my $p = Pod::Simple::PullParser->new;
302 $p->set_source( \q{
303
304 =head1 (NAME) ����� �����
305
306 Thingy
307
308 =head1 (DESCRIPTION) ����� ������
309
310 ����� ������ �� ����������� ������ -- Fet's I<"When you were> reading
311
312 =pod
313
314 Grunk
315
316 =cut
317 } );
318
319 ok $p->get_title(), "Thingy";
320 ok $p->get_version() || '', '';
321 ok $p->get_description(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
322 my $t;
323
324 ok( $t = $p->get_token);
325 ok( $t && $t->type, 'start');
326 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
327
328 }
329
330 ###########################################################################
331
332 {
333 print "# Testing another set, at line ", __LINE__, "\n";
334
335 my $p = Pod::Simple::PullParser->new;
336 $p->set_source( \q{
337
338 =head1 (NAME) ����� �����
339
340 Thingy
341
342 =head1 (DESCRIPTION) ����� ������
343
344 ����� ������ �� ����������� ������ -- Fet's I<"When you were> reading
345
346 =head1 VERSION
347
348   Stuff: Thing
349   Whatever: Um.
350
351 =head1 AUTHOR
352
353 Jojoj E<65>arzarz
354
355 =pod
356
357 Grunk
358
359 =cut
360 } );
361
362 ok $p->get_title(), "Thingy";
363 my $v = $p->get_version || '';
364 $v =~ s/^ +//m;
365 $v =~ s/^\s+//s;
366 $v =~ s/\s+$//s;
367 ok $v, "Stuff: Thing\nWhatever: Um.";
368 ok $p->get_description(), q{����� ������ �� ����������� ������ -- Fet's "When you were reading};
369 ok $p->get_author() || '', 'Jojoj Aarzarz';
370
371
372 my $t;
373 ok( $t = $p->get_token);
374 ok( $t && $t->type, 'start');
375 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
376
377 }
378
379 ###########################################################################
380 ###########################################################################
381
382
383 print "# Wrapping up... one for the road...\n";
384 ok 1;
385 print "# --- Done with ", __FILE__, " --- \n";
386
387 __END__
388