10 BEGIN { plan tests => 104 };
12 #use Pod::Simple::Debug (5);
14 #sub Pod::Simple::MANY_LINES () {1}
15 #sub Pod::Simple::PullParser::DEBUG () {3}
18 use Pod::Simple::PullParser;
22 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
23 ###########################################################################
26 print "# Testing another set, at line ", __LINE__, "\n";
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} );
31 ok $p->get_title(), 'Bzorch';
34 ok( $t = $p->get_token);
35 ok( $t && $t->type, 'start');
36 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
38 ok( $t = $p->get_token);
39 ok( $t && $t->type, 'start');
40 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
42 ok( $t = $p->get_token);
43 ok( $t && $t->type, 'text');
44 ok( $t && $t->type eq 'text' && $t->text, 'NAME' );
48 ###########################################################################
51 print "# Testing another set, at line ", __LINE__, "\n";
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} );
56 ok $p->get_title(), 'Bzorch';
59 ok( $t = $p->get_token);
60 ok( $t && $t->type, 'start');
61 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
63 ok( $t = $p->get_token);
64 ok( $t && $t->type, 'start');
65 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
67 ok( $t = $p->get_token);
68 ok( $t && $t->type, 'text');
73 ###########################################################################
76 print "# Testing another set, at line ", __LINE__, "\n";
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';
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';
91 ok( $t = $p->get_token);
92 ok( $t && $t->type, 'start');
93 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
95 ok( $t = $p->get_token);
96 ok( $t && $t->type, 'start');
97 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
99 ok( $t = $p->get_token);
100 ok( $t && $t->type, 'text');
101 ok( $t && $t->type eq 'text' && $t->text, 'NAME' );
105 ###########################################################################
108 print "# Testing another set, at line ", __LINE__, "\n";
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} );
113 ok $p->get_title(), 'Bzorch lala';
116 ok( $t = $p->get_token);
117 ok( $t && $t->type, 'start');
118 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
120 ok( $t = $p->get_token);
121 ok( $t && $t->type, 'start');
122 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
124 ok( $t = $p->get_token);
125 ok( $t && $t->type, 'text');
126 ok( $t && $t->type eq 'text' && $t->text, 'Bzorch lala' );
130 ###########################################################################
133 print "# Testing another set, at line ", __LINE__, "\n";
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} );
138 ok $p->get_title(), 'Bzorch - thing lala';
141 ok( $t = $p->get_token);
142 ok( $t && $t->type, 'start');
143 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
145 ok( $t = $p->get_token);
146 ok( $t && $t->type, 'start');
147 ok( $t && $t->type eq 'start' && $t->tagname, 'head1' );
149 ok( $t = $p->get_token);
150 ok( $t && $t->type, 'text');
151 ok( $t && $t->type eq 'text' && $t->text, 'Bzorch - ' );
154 ###########################################################################
157 print "# Testing another set, at line ", __LINE__, "\n";
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} );
162 ok $p->get_version || '', '';
163 ok $p->get_author || '', '';
165 ok $p->get_title(), 'Bzorch - thing lala';
168 ok( $t = $p->get_token);
169 ok( $t && $t->type, 'start');
170 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
173 ###########################################################################
176 print "# Testing another set, at line ", __LINE__, "\n";
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} );
181 ok $p->get_title(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
184 ok( $t = $p->get_token);
185 ok( $t && $t->type, 'start');
186 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
190 ###########################################################################
193 print "# Testing another set, at line ", __LINE__, "\n";
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} );
198 ok $p->get_title(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
201 ok( $t = $p->get_token);
202 ok( $t && $t->type, 'start');
203 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
207 ###########################################################################
210 print "# Testing another set, at line ", __LINE__, "\n";
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} );
215 ok $p->get_title() || '', '';
216 ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
219 ok( $t = $p->get_token);
220 ok( $t && $t->type, 'start');
221 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
224 ###########################################################################
227 print "# Testing another set, at line ", __LINE__, "\n";
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} );
232 ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
233 ok $p->get_title() || '', '';
236 ok( $t = $p->get_token);
237 ok( $t && $t->type, 'start');
238 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
242 ###########################################################################
245 print "# Testing another set, at line ", __LINE__, "\n";
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} );
250 ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
251 ok $p->get_title(), "Thingy";
254 ok( $t = $p->get_token);
255 ok( $t && $t->type, 'start');
256 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
260 ###########################################################################
263 print "# Testing another set, at line ", __LINE__, "\n";
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} );
268 ok $p->get_title(), "Thingy";
269 ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
272 ok( $t = $p->get_token);
273 ok( $t && $t->type, 'start');
274 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
278 ###########################################################################
281 print "# Testing another set, at line ", __LINE__, "\n";
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} );
286 ok $p->get_title(), "Thingy";
287 ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
290 ok( $t = $p->get_token);
291 ok( $t && $t->type, 'start');
292 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
296 ###########################################################################
299 print "# Testing another set, at line ", __LINE__, "\n";
301 my $p = Pod::Simple::PullParser->new;
304 =head1 (NAME) ÷ÄÁÌÉ ÐÅÒÅÄ
308 =head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ
310 ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading
319 ok $p->get_title(), "Thingy";
320 ok $p->get_version() || '', '';
321 ok $p->get_description(), q{ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's "When you were reading};
324 ok( $t = $p->get_token);
325 ok( $t && $t->type, 'start');
326 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
330 ###########################################################################
333 print "# Testing another set, at line ", __LINE__, "\n";
335 my $p = Pod::Simple::PullParser->new;
338 =head1 (NAME) ÷ÄÁÌÉ ÐÅÒÅÄ
342 =head1 (DESCRIPTION) ëÏÇÄÁ ÞÉÔÁÌÁ
344 ëÏÇÄÁ ÞÉÔÁÌÁ ÔÙ ÍÕÞÉÔÅÌØÎÙÅ ÓÔÒÏËÉ -- Fet's I<"When you were> reading
362 ok $p->get_title(), "Thingy";
363 my $v = $p->get_version || '';
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';
373 ok( $t = $p->get_token);
374 ok( $t && $t->type, 'start');
375 ok( $t && $t->type eq 'start' && $t->tagname, 'Document' );
379 ###########################################################################
380 ###########################################################################
383 print "# Wrapping up... one for the road...\n";
385 print "# --- Done with ", __FILE__, " --- \n";