git.maemo.org Git - dh-make-perl/blob - dev/arm/libpod-simple-perl/libpod-simple-perl-3.07/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