t/library/tap_parser.t

   1 #!./parrot
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/library/tap_parser.t
   8
   9 =head1 DESCRIPTION
  10
  11 Test the TAP/Parser library
  12
  13 =head1 SYNOPSIS
  14
  15     % prove t/library/tap_parser.t
  16
  17 =cut
  18
  19 .sub 'main' :main
  20     .include 'test_more.pir'
  21
  22     load_bytecode 'TAP/Parser.pir'
  23
  24     plan(203)
  25     test_grammar_plan()
  26     test_grammar_bailout()
  27     test_grammar_comment()
  28     test_grammar_tests()
  29     test_grammar_version()
  30     test_tap()
  31     test_tap_with_blank_lines()
  32     test_tap_has_problem()
  33     test_tap_version_wrong_place()
  34     test_tap_trailing_plan()
  35     test_aggregator()
  36 .end
  37
  38 .sub 'test_grammar_plan'
  39     .local pmc grammar, token
  40     grammar = new ['TAP';'Parser';'Grammar']
  41     token = grammar.'tokenize'("1..42")
  42     $P0 = get_class ['TAP';'Parser';'Result';'Plan']
  43     isa_ok(token, $P0)
  44     $P0 = getattribute token, 'raw'
  45     is($P0, "1..42")
  46     $P0 = getattribute token, 'plan'
  47     is($P0, "1..42")
  48     $P0 = getattribute token, 'tests_planned'
  49     is($P0, 42, "tests_planned")
  50
  51     token = grammar.'tokenize'("1..0 # SKIP why not?")
  52     $P0 = get_class ['TAP';'Parser';'Result';'Plan']
  53     isa_ok(token, $P0)
  54     $P0 = getattribute token, 'raw'
  55     is($P0, "1..0 # SKIP why not?")
  56     $P0 = getattribute token, 'plan'
  57     is($P0, "1..0")
  58     $P0 = getattribute token, 'tests_planned'
  59     is($P0, 0, "tests_planned")
  60     $P0 = getattribute token, 'directive'
  61     is($P0, 'SKIP', "directive")
  62     $P0 = getattribute token, 'explanation'
  63     is($P0, 'why not?', "explanation")
  64
  65     token = grammar.'tokenize'("1..0")
  66     $P0 = get_class ['TAP';'Parser';'Result';'Plan']
  67     isa_ok(token, $P0)
  68     $P0 = getattribute token, 'raw'
  69     is($P0, "1..0")
  70     $P0 = getattribute token, 'plan'
  71     is($P0, "1..0")
  72     $P0 = getattribute token, 'tests_planned'
  73     is($P0, 0, "tests_planned")
  74     $P0 = getattribute token, 'directive'
  75     is($P0, 'SKIP', "directive")
  76 .end
  77
  78 .sub 'test_grammar_bailout'
  79     .local pmc grammar, token
  80     grammar = new ['TAP';'Parser';'Grammar']
  81     token = grammar.'tokenize'("Bail out!")
  82     $P0 = get_class ['TAP';'Parser';'Result';'Bailout']
  83     isa_ok(token, $P0)
  84     $P0 = getattribute token, 'raw'
  85     is($P0, "Bail out!")
  86     $P0 = getattribute token, 'explanation'
  87     is($P0, '', "no explanation")
  88
  89     token = grammar.'tokenize'("Bail out! some explanation")
  90     $P0 = get_class ['TAP';'Parser';'Result';'Bailout']
  91     isa_ok(token, $P0)
  92     $P0 = getattribute token, 'raw'
  93     is($P0, "Bail out! some explanation")
  94     $P0 = getattribute token, 'explanation'
  95     is($P0, "some explanation", "explanation")
  96 .end
  97
  98 .sub 'test_grammar_comment'
  99     .local pmc grammar, token
 100     grammar = new ['TAP';'Parser';'Grammar']
 101     token = grammar.'tokenize'("# this is a comment")
 102     $P0 = get_class ['TAP';'Parser';'Result';'Comment']
 103     isa_ok(token, $P0)
 104     $P0 = getattribute token, 'raw'
 105     is($P0, "# this is a comment")
 106     $P0 = getattribute token, 'comment'
 107     is($P0, 'this is a comment', "comment")
 108 .end
 109
 110 .sub 'test_grammar_tests'
 111     .local pmc grammar, token
 112     grammar = new ['TAP';'Parser';'Grammar']
 113     token = grammar.'tokenize'("ok 1 this is a test")
 114     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 115     isa_ok(token, $P0)
 116     $P0 = getattribute token, 'raw'
 117     is($P0, "ok 1 this is a test")
 118     $P0 = getattribute token, 'ok'
 119     is($P0, 'ok', "ok")
 120     $P0 = getattribute token, 'test_num'
 121     is($P0, 1, "test_num")
 122     $P0 = getattribute token, 'description'
 123     is($P0, 'this is a test', "description")
 124
 125     token = grammar.'tokenize'("not ok 2 this is a test # TODO whee!")
 126     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 127     isa_ok(token, $P0)
 128     $P0 = getattribute token, 'raw'
 129     is($P0, "not ok 2 this is a test # TODO whee!")
 130     $P0 = getattribute token, 'ok'
 131     is($P0, 'not ok', "ok")
 132     $P0 = getattribute token, 'test_num'
 133     is($P0, 2, "test_num")
 134     $P0 = getattribute token, 'description'
 135     is($P0, 'this is a test', "description")
 136     $P0 = getattribute token, 'directive'
 137     is($P0, 'TODO', "directive")
 138     $P0 = getattribute token, 'explanation'
 139     is($P0, 'whee!', "explanation")
 140
 141     token = grammar.'tokenize'("ok 22 this is a test \\# TODO whee!")
 142     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 143     isa_ok(token, $P0)
 144     $P0 = getattribute token, 'raw'
 145     is($P0, "ok 22 this is a test \\# TODO whee!")
 146     $P0 = getattribute token, 'ok'
 147     is($P0, 'ok', "ok")
 148     $P0 = getattribute token, 'test_num'
 149     is($P0, 22, "test_num")
 150     $P0 = getattribute token, 'description'
 151     is($P0, 'this is a test \# TODO whee!', "description")
 152
 153     token = grammar.'tokenize'("not ok")
 154     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 155     isa_ok(token, $P0)
 156     $P0 = getattribute token, 'raw'
 157     is($P0, "not ok")
 158     $P0 = getattribute token, 'ok'
 159     is($P0, 'not ok', "ok")
 160     $P0 = getattribute token, 'test_num'
 161     null $P1
 162     is($P0, $P1, "test_num")
 163     $P0 = getattribute token, 'description'
 164     null $P1
 165     is($P0, $P1, "description")
 166
 167     token = grammar.'tokenize'("ok 42")
 168     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 169     isa_ok(token, $P0)
 170     $P0 = getattribute token, 'raw'
 171     is($P0, "ok 42")
 172     $P0 = getattribute token, 'ok'
 173     is($P0, 'ok', "ok")
 174     $P0 = getattribute token, 'test_num'
 175     is($P0, 42, "test_num")
 176     $P0 = getattribute token, 'description'
 177     null $P1
 178     is($P0, $P1, "description")
 179 .end
 180
 181 .sub 'test_grammar_version'
 182     .local pmc grammar, token
 183     grammar = new ['TAP';'Parser';'Grammar']
 184     token = grammar.'tokenize'("TAP version 12")
 185     $P0 = get_class ['TAP';'Parser';'Result';'Version']
 186     isa_ok(token, $P0)
 187     $P0 = getattribute token, 'raw'
 188     is($P0, "TAP version 12")
 189     $P0 = getattribute token, 'version'
 190     is($P0, 12, "version")
 191 .end
 192
 193 .sub '_get_results'
 194     .param pmc parser
 195     .local pmc result
 196     result = new 'ResizablePMCArray'
 197     $P0 = get_hll_global ['TAP';'Parser'], 'next'
 198     .local pmc coro
 199     coro = newclosure $P0
 200   L1:
 201     $P0 = coro(parser)
 202     if null $P0 goto L2
 203     push result, $P0
 204     goto L1
 205   L2:
 206     .return (result)
 207 .end
 208
 209 .sub 'test_tap'
 210     .local pmc parser, result, token
 211     parser = new ['TAP';'Parser']
 212     parser.'tap'(<<'END_TAP')
 213 TAP version 13
 214 1..7
 215 ok 1 - input file opened
 216 ... this is junk
 217 not ok first line of the input valid # todo some data
 218 # this is a comment
 219 ok 3 - read the rest of the file
 220 not ok 4 - this is a real failure
 221 ok 5 # skip we have no description
 222 ok 6 - you shall not pass! # TODO should have failed
 223 not ok 7 - Gandalf wins.  Game over.  # TODO 'bout time!
 224 END_TAP
 225     result = _get_results(parser)
 226     $I0 = elements result
 227     is($I0, 11, "elements")
 228
 229     token = shift result
 230     $P0 = get_class ['TAP';'Parser';'Result';'Version']
 231     isa_ok(token, $P0)
 232     $P0 = getattribute token, 'version'
 233     is($P0, 13, "version")
 234
 235     token = shift result
 236     $P0 = get_class ['TAP';'Parser';'Result';'Plan']
 237     isa_ok(token, $P0)
 238     $P0 = getattribute token, 'plan'
 239     is($P0, "1..7", "plan")
 240     $P0 = getattribute token, 'tests_planned'
 241     is($P0, 7, "tests_planned")
 242
 243     token = shift result
 244     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 245     isa_ok(token, $P0)
 246     $P0 = getattribute token, 'ok'
 247     is($P0, 'ok', "ok")
 248     $P0 = getattribute token, 'test_num'
 249     is($P0, 1, "test_num")
 250     $P0 = getattribute token, 'description'
 251     is($P0, '- input file opened', "description")
 252     $I0 = token.'is_ok'()
 253     ok($I0)
 254     $I0 = token.'is_actual_ok'()
 255     ok($I0)
 256     $I0 = token.'has_todo'()
 257     nok($I0)
 258     $I0 = token.'has_skip'()
 259     nok($I0)
 260
 261     token = shift result
 262     $P0 = get_class ['TAP';'Parser';'Result';'Unknown']
 263     isa_ok(token, $P0)
 264     $P0 = getattribute token, 'raw'
 265     is($P0, '... this is junk', "raw")
 266
 267     token = shift result
 268     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 269     isa_ok(token, $P0)
 270     $P0 = getattribute token, 'ok'
 271     is($P0, 'not ok', "ok")
 272     $P0 = getattribute token, 'test_num'
 273     is($P0, 2, "test_num")
 274     $P0 = getattribute token, 'description'
 275     is($P0, 'first line of the input valid', "description")
 276     $I0 = token.'is_ok'()
 277     ok($I0)
 278     $I0 = token.'is_actual_ok'()
 279     nok($I0)
 280     $I0 = token.'has_todo'()
 281     ok($I0)
 282     $I0 = token.'has_skip'()
 283     nok($I0)
 284     $P0 = getattribute token, 'explanation'
 285     is($P0, 'some data', "explanation")
 286
 287     token = shift result
 288     $P0 = get_class ['TAP';'Parser';'Result';'Comment']
 289     isa_ok(token, $P0)
 290     $P0 = getattribute token, 'comment'
 291     is($P0, 'this is a comment', "comment")
 292
 293     token = shift result
 294     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 295     isa_ok(token, $P0)
 296     $P0 = getattribute token, 'ok'
 297     is($P0, 'ok', "ok")
 298     $P0 = getattribute token, 'test_num'
 299     is($P0, 3, "test_num")
 300     $P0 = getattribute token, 'description'
 301     is($P0, '- read the rest of the file', "description")
 302     $I0 = token.'is_ok'()
 303     ok($I0)
 304     $I0 = token.'is_actual_ok'()
 305     ok($I0)
 306     $I0 = token.'has_todo'()
 307     nok($I0)
 308     $I0 = token.'has_skip'()
 309     nok($I0)
 310
 311     token = shift result
 312     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 313     isa_ok(token, $P0)
 314     $P0 = getattribute token, 'ok'
 315     is($P0, 'not ok', "ok")
 316     $P0 = getattribute token, 'test_num'
 317     is($P0, 4, "test_num")
 318     $P0 = getattribute token, 'description'
 319     is($P0, '- this is a real failure', "description")
 320     $I0 = token.'is_ok'()
 321     nok($I0)
 322     $I0 = token.'is_actual_ok'()
 323     nok($I0)
 324     $I0 = token.'has_todo'()
 325     nok($I0)
 326     $I0 = token.'has_skip'()
 327     nok($I0)
 328
 329     token = shift result
 330     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 331     isa_ok(token, $P0)
 332     $P0 = getattribute token, 'ok'
 333     is($P0, 'ok', "ok")
 334     $P0 = getattribute token, 'test_num'
 335     is($P0, 5, "test_num")
 336     $I0 = token.'is_ok'()
 337     ok($I0)
 338     $I0 = token.'is_actual_ok'()
 339     ok($I0)
 340     $I0 = token.'has_todo'()
 341     nok($I0)
 342     $I0 = token.'has_skip'()
 343     ok($I0)
 344     $P0 = getattribute token, 'explanation'
 345     is($P0, 'we have no description', "explanation")
 346
 347     token = shift result
 348     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 349     isa_ok(token, $P0)
 350     $P0 = getattribute token, 'ok'
 351     is($P0, 'ok', "ok")
 352     $P0 = getattribute token, 'test_num'
 353     is($P0, 6, "test_num")
 354     $P0 = getattribute token, 'description'
 355     is($P0, '- you shall not pass!', "description")
 356     $I0 = token.'is_ok'()
 357     ok($I0)
 358     $I0 = token.'is_actual_ok'()
 359     ok($I0)
 360     $I0 = token.'has_todo'()
 361     ok($I0)
 362     $I0 = token.'has_skip'()
 363     nok($I0)
 364     $P0 = getattribute token, 'explanation'
 365     is($P0, 'should have failed', "explanation")
 366
 367     token = shift result
 368     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 369     isa_ok(token, $P0)
 370     $P0 = getattribute token, 'ok'
 371     is($P0, 'not ok', "ok")
 372     $P0 = getattribute token, 'test_num'
 373     is($P0, 7, "test_num")
 374     $P0 = getattribute token, 'description'
 375     is($P0, '- Gandalf wins.  Game over.', "description")
 376     $I0 = token.'is_ok'()
 377     ok($I0)
 378     $I0 = token.'is_actual_ok'()
 379     nok($I0)
 380     $I0 = token.'has_todo'()
 381     ok($I0)
 382     $I0 = token.'has_skip'()
 383     nok($I0)
 384     $P0 = getattribute token, 'explanation'
 385     is($P0, "'bout time!", "explanation")
 386
 387     $P0 = getattribute parser, 'passed'
 388     $S0 = join ', ', $P0
 389     is($S0, "1, 2, 3, 5, 6, 7", "passed")
 390     $P0 = getattribute parser, 'failed'
 391     $S0 = join ', ', $P0
 392     is($S0, "4", "failed")
 393     $P0 = getattribute parser, 'actual_passed'
 394     $S0 = join ', ', $P0
 395     is($S0, "1, 3, 5, 6", "actual_passed")
 396     $P0 = getattribute parser, 'actual_failed'
 397     $S0 = join ', ', $P0
 398     is($S0, "2, 4, 7", "actual_failed")
 399     $P0 = getattribute parser, 'todo'
 400     $S0 = join ', ', $P0
 401     is($S0, "2, 6, 7", "todo")
 402     $P0 = getattribute parser, 'skipped'
 403     $S0 = join ', ', $P0
 404     is($S0, "5", "skipped")
 405     $P0 = getattribute parser, 'todo_passed'
 406     $S0 = join ', ', $P0
 407     is($S0, "6", "todo_passed")
 408
 409     $P0 = getattribute parser, 'plan'
 410     is($P0, "1..7", "plan")
 411     $P0 = getattribute parser, 'tests_planned'
 412     is($P0, 7, "tests_planned")
 413 .end
 414
 415 .sub 'test_tap_with_blank_lines'
 416     .local pmc parser, result, token
 417     parser = new ['TAP';'Parser']
 418     parser.'tap'(<<'END_TAP')
 419 1..2
 420 ok 1 - input file opened
 421
 422
 423 ok 2 - read the rest of the file
 424 END_TAP
 425     result = _get_results(parser)
 426     $I0 = elements result
 427     is($I0, 5, "elements")
 428
 429     token = shift result
 430     $P0 = get_class ['TAP';'Parser';'Result';'Plan']
 431     isa_ok(token, $P0)
 432     $P0 = getattribute token, 'plan'
 433     is($P0, "1..2", "plan")
 434     $P0 = getattribute token, 'tests_planned'
 435     is($P0, 2, "tests_planned")
 436
 437     token = shift result
 438     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 439     isa_ok(token, $P0)
 440     $P0 = getattribute token, 'ok'
 441     is($P0, 'ok', "ok")
 442     $P0 = getattribute token, 'test_num'
 443     is($P0, 1, "test_num")
 444     $P0 = getattribute token, 'description'
 445     is($P0, '- input file opened', "description")
 446     $I0 = token.'is_ok'()
 447     ok($I0)
 448     $I0 = token.'is_actual_ok'()
 449     ok($I0)
 450     $I0 = token.'has_todo'()
 451     nok($I0)
 452     $I0 = token.'has_skip'()
 453     nok($I0)
 454
 455     token = shift result
 456     $P0 = get_class ['TAP';'Parser';'Result';'Unknown']
 457     isa_ok(token, $P0)
 458     $P0 = getattribute token, 'raw'
 459     is($P0, '', "raw")
 460
 461     token = shift result
 462     $P0 = get_class ['TAP';'Parser';'Result';'Unknown']
 463     isa_ok(token, $P0)
 464     $P0 = getattribute token, 'raw'
 465     is($P0, '', "raw")
 466
 467     token = shift result
 468     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 469     isa_ok(token, $P0)
 470     $P0 = getattribute token, 'ok'
 471     is($P0, 'ok', "ok")
 472     $P0 = getattribute token, 'test_num'
 473     is($P0, 2, "test_num")
 474     $P0 = getattribute token, 'description'
 475     is($P0, '- read the rest of the file', "description")
 476     $I0 = token.'is_ok'()
 477     ok($I0)
 478     $I0 = token.'is_actual_ok'()
 479     ok($I0)
 480     $I0 = token.'has_todo'()
 481     nok($I0)
 482     $I0 = token.'has_skip'()
 483     nok($I0)
 484 .end
 485
 486 .sub 'test_tap_has_problem'
 487     .local pmc parser
 488     parser = new ['TAP';'Parser']
 489     parser.'tap'(<<'END_TAP')
 490 TAP version 13
 491 1..2
 492 ok 1 - input file opened
 493 ok 2 - Gandalf wins.  Game over.  # TODO 'bout time!
 494 END_TAP
 495     parser.'run'()
 496     $I0 = parser.'failed'()
 497     is($I0, 0, "not failed")
 498     $I0 = parser.'todo_passed'()
 499     is($I0, 1, "todo_passed")
 500     $I0 = parser.'has_problems'()
 501     nok($I0, "has not problem")
 502
 503     parser = new ['TAP';'Parser']
 504     parser.'tap'(<<'END_TAP')
 505 TAP version 13
 506 1..2
 507 SMACK
 508 END_TAP
 509     parser.'run'()
 510     $I0 = parser.'failed'()
 511     is($I0, 0, "not failed")
 512     $I0 = parser.'todo_passed'()
 513     is($I0, 0, "todo_passed")
 514     $I0 = parser.'parse_errors'()
 515     is($I0, 2, "parse_errors")
 516     $I0 = parser.'has_problems'()
 517     ok($I0, "has_problems")
 518 .end
 519
 520 .sub 'test_tap_version_wrong_place'
 521     .local pmc parser
 522     parser = new ['TAP';'Parser']
 523     parser.'tap'(<<'END_TAP')
 524 1..2
 525 ok 1 - input file opened
 526 TAP version 12
 527 ok 2 - Gandalf wins
 528 END_TAP
 529     parser.'run'()
 530     $I0 = parser.'failed'()
 531     is($I0, 0, "not failed")
 532     $I0 = parser.'parse_errors'()
 533     is($I0, 1, "parse_errors")
 534     $P0 = getattribute parser, 'parse_errors'
 535     $S0 = shift $P0
 536     is($S0, "If TAP version is present it must be the first line of output")
 537 .end
 538
 539 .sub 'test_tap_trailing_plan'
 540     .local pmc parser, result, token
 541     parser = new ['TAP';'Parser']
 542     parser.'tap'(<<'END_TAP')
 543 ok 1 - input file opened
 544 ok 2 - Gandalf wins
 545 1..2
 546 END_TAP
 547     result = _get_results(parser)
 548     $I0 = elements result
 549     is($I0, 3, "elements")
 550
 551     token = shift result
 552     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 553     isa_ok(token, $P0)
 554     $P0 = getattribute token, 'ok'
 555     is($P0, 'ok', "ok")
 556     $P0 = getattribute token, 'test_num'
 557     is($P0, 1, "test_num")
 558     $P0 = getattribute token, 'description'
 559     is($P0, '- input file opened', "description")
 560     $I0 = token.'is_ok'()
 561     ok($I0)
 562     $I0 = token.'is_actual_ok'()
 563     ok($I0)
 564     $I0 = token.'is_unplanned'()
 565     nok($I0, "unplanned")
 566
 567     token = shift result
 568     $P0 = get_class ['TAP';'Parser';'Result';'Test']
 569     isa_ok(token, $P0)
 570     $P0 = getattribute token, 'ok'
 571     is($P0, 'ok', "ok")
 572     $P0 = getattribute token, 'test_num'
 573     is($P0, 2, "test_num")
 574     $P0 = getattribute token, 'description'
 575     is($P0, '- Gandalf wins', "description")
 576     $I0 = token.'is_ok'()
 577     ok($I0)
 578     $I0 = token.'is_actual_ok'()
 579     ok($I0)
 580     $I0 = token.'is_unplanned'()
 581     nok($I0, "unplanned")
 582
 583     token = shift result
 584     $P0 = get_class ['TAP';'Parser';'Result';'Plan']
 585     isa_ok(token, $P0)
 586     $P0 = getattribute token, 'plan'
 587     is($P0, "1..2", "plan")
 588     $P0 = getattribute token, 'tests_planned'
 589     is($P0, 2, "tests_planned")
 590
 591     $I0 = parser.'passed'()
 592     is($I0, 2, "passed")
 593     $I0 = parser.'failed'()
 594     is($I0, 0, "failed")
 595     $I0 = parser.'parse_errors'()
 596     is($I0, 0, "parse_errors")
 597     $I0 = parser.'has_problems'()
 598     is($I0, 0, "has_problems")
 599
 600     $P0 = getattribute parser, 'plan'
 601     is($P0, "1..2", "plan")
 602     $P0 = getattribute parser, 'tests_planned'
 603     is($P0, 2, "tests_planned")
 604 .end
 605
 606 .sub 'test_aggregator'
 607     .local pmc parser1, parser2, agg
 608     parser1 = new ['TAP';'Parser']
 609     parser1.'tap'(<<'END_TAP')
 610 1..5
 611 ok 1 - input file opened
 612 ... this is junk
 613 not ok first line of the input valid # todo some data
 614 # this is a comment
 615 ok 3 - read the rest of the file
 616 not ok 4 - this is a real failure
 617 ok 5 # skip we have no description
 618 END_TAP
 619     parser1.'run'()
 620
 621     parser2 = new ['TAP';'Parser']
 622     parser2.'tap'(<<'END_TAP')
 623 1..7
 624 ok 1 - gentlemen, start your engines
 625 not ok first line of the input valid # todo some data
 626 # this is a comment
 627 ok 3 - read the rest of the file
 628 not ok 4 - this is a real failure
 629 ok 5
 630 ok 6 - you shall not pass! # TODO should have failed
 631 not ok 7 - Gandalf wins.  Game over.  # TODO 'bout time!
 632 END_TAP
 633     parser2.'run'()
 634
 635     agg = new ['TAP';'Parser';'Aggregator']
 636     agg.'add'('tap1', parser1)
 637     agg.'add'('tap2', parser2)
 638
 639     $P0 = agg.'descriptions'()
 640     $I0 = elements $P0
 641     is($I0, 2, "descriptions")
 642
 643     $P0 = getattribute agg, 'passed'
 644     is($P0, 10, "passed")
 645     $P0 = getattribute agg, 'failed'
 646     is($P0, 2, "failed")
 647     $P0 = getattribute agg, 'todo'
 648     is($P0, 4, "todo")
 649     $P0 = getattribute agg, 'skipped'
 650     is($P0, 1, "skipped")
 651     $P0 = getattribute agg, 'parse_errors'
 652     is($P0, 1, "parse_errors")
 653     $P0 = getattribute agg, 'todo_passed'
 654     is($P0, 1, "todo_passed")
 655     $P0 = getattribute agg, 'total'
 656     is($P0, 12, "total")
 657     $P0 = getattribute agg, 'planned'
 658     is($P0, 12, "planned")
 659
 660     $I0 = agg.'has_problems'()
 661     ok($I0, "has_problems")
 662     $I0 = agg.'has_errors'()
 663     ok($I0, "has_errors")
 664     $S0 = agg.'get_status'()
 665     is($S0, 'FAIL', "status")
 666     $I0 = agg.'all_passed'()
 667     nok($I0, "all_passed")
 668 .end
 669
 670 # Local Variables:
 671 #   mode: pir
 672 #   fill-column: 100
 673 # End:
 674 # vim: expandtab shiftwidth=4 ft=pir: