t/library/test_more.t

   1 #!./parrot
   2 # Copyright (C) 2005-2010, Parrot Foundation.
   3 # $Id$
   4
   5 .sub _main :main
   6     load_bytecode 'Test/Builder/Tester.pbc'
   7     load_bytecode 'Test/More.pbc'
   8
   9     .local pmc tb_args
  10     tb_args = new 'Hash'
  11
  12     .local pmc test
  13     test = new [ 'Test'; 'Builder' ], tb_args
  14
  15     .local pmc exports, curr_namespace, test_namespace
  16     curr_namespace = get_namespace
  17     test_namespace = get_namespace [ 'Test'; 'More' ]
  18     exports = split " ", "ok nok is diag like skip todo is_deeply is_null isa_ok isnt throws_like lives_ok dies_ok"
  19     test_namespace.'export_to'(curr_namespace, exports)
  20
  21     test_namespace = get_namespace [ 'Test'; 'Builder'; 'Tester' ]
  22     exports = split " ", "plan test_out test_diag test_fail test_pass test_test"
  23     test_namespace.'export_to'(curr_namespace, exports)
  24
  25     plan( 117 )
  26
  27     test_skip()
  28     test_todo()
  29     test_ok()
  30     test_nok()
  31     test_is()
  32     test_isnt()
  33     test_like()
  34     test_is_deeply()
  35     test_is_null()
  36     test_diagnostics()
  37     test_lives_ok()
  38     test_dies_ok()
  39     test_throws_like()
  40     test_isa_ok()
  41
  42     test.'finish'()
  43 .end
  44
  45 .sub test_dies_ok
  46     test_pass( 'dies_ok passes when there is an error' )
  47     dies_ok( <<'CODE', 'dies_ok passes when there is an error' )
  48 .sub main
  49     die 'I did it for the lulz'
  50 .end
  51 CODE
  52     test_test( 'dies_ok passes when there is an error' )
  53
  54     test_fail( 'dies_ok fails when there is no error' )
  55     dies_ok( <<'CODE', 'dies_ok fails when there is no error' )
  56 .sub main
  57     $I0 = 42
  58 .end
  59 CODE
  60     test_diag( 'no error thrown' )
  61     test_test( 'dies_ok fails when there is no error' )
  62
  63     test_pass( 'dies_ok passes when there is an error with diagnostic message' )
  64     dies_ok( <<'CODE', 'dies_ok passes when there is an error with diagnostic message' )
  65 .sub main
  66     die 'I did it for the lulz'
  67 .end
  68 CODE
  69     test_diag( '' )
  70     test_test( 'dies_ok passes when there is an error with diagnostic message' )
  71
  72     test_fail( 'dies_ok fails when there is no error with diagnostic message' )
  73     dies_ok( <<'CODE', 'dies_ok fails when there is no error with diagnostic message' )
  74 .sub main
  75     $I0 = 42
  76 .end
  77 CODE
  78     test_diag( 'no error thrown' )
  79     test_test( 'dies_ok fails when there is no error with diagnostic message' )
  80
  81 .end
  82
  83 .sub test_lives_ok
  84
  85     test_pass( 'lives_ok passes when there is no error' )
  86     lives_ok( <<'CODE', 'lives_ok passes when there is no error' )
  87 .sub main
  88     $I0 = 42
  89 .end
  90 CODE
  91     test_test( 'lives_ok passes when there is no error' )
  92
  93     test_fail( 'lives_ok fails when there is an error')
  94     lives_ok( <<'CODE', 'lives_ok fails when there is an error')
  95 .sub main
  96     die 'I did it for the lulz'
  97 .end
  98 CODE
  99     test_diag( 'I did it for the lulz' )
 100     test_test( 'lives_ok fails when there is an error' )
 101
 102     test_pass( 'lives_ok passes when there is no error (with diagnostic message)' )
 103     lives_ok( <<'CODE', 'lives_ok passes when there is no error (with diagnostic message)' )
 104 .sub main
 105     $I0 = 42
 106 .end
 107 CODE
 108     test_diag( '' )
 109     test_test( 'lives_ok passes when there is no error (with diagnostic message)' )
 110
 111     test_fail( 'lives_ok fails when there is an error (with diagnostic message)' )
 112     lives_ok( <<'CODE', 'lives_ok fails when there is an error (with diagnostic message)' )
 113 .sub main
 114     die 'I did it for the lulz'
 115 .end
 116 CODE
 117     test_diag( 'I did it for the lulz' )
 118     test_test( 'lives_ok fails when there is an error' )
 119 .end
 120
 121 .sub test_throws_like
 122
 123     test_fail('throws_like fails when there is no error')
 124     throws_like( <<'CODE', 'somejunk', 'throws_like fails when there is no error')
 125 .sub main
 126     $I0 = 42
 127 .end
 128 CODE
 129     test_diag( 'no error thrown' )
 130     test_test( 'throws_like fails when there is no error')
 131
 132     test_pass('throws_like passes when error matches pattern')
 133     throws_like( <<'CODE', 'for\ the\ lulz','throws_like passes when error matches pattern')
 134 .sub main
 135     die 'I did it for the lulz'
 136 .end
 137 CODE
 138     test_test( 'throws_like passes when error matches pattern' )
 139
 140     test_fail( 'throws_like fails when error does not match pattern' )
 141     throws_like( <<'CODE', 'for\ the\ lulz','throws_like fails when error does not match pattern')
 142 .sub main
 143     die 'DO NOT WANT'
 144 .end
 145 CODE
 146     .local string diagnostic
 147     diagnostic  = "match failed: target 'DO NOT WANT' does not match pattern '"
 148     diagnostic .= 'for\ the\ lulz'
 149     diagnostic .= "'"
 150     test_diag( diagnostic )
 151     test_test('throws_like fails when error does not match pattern' )
 152
 153 .end
 154
 155 .namespace ['MyFalseClass']
 156
 157 .sub '' :anon :load :init
 158     $P0 = newclass ['MyFalseClass']
 159 .end
 160
 161 .sub 'get_bool' :vtable
 162     .return(0)
 163 .end
 164
 165 .sub 'get_integer' :vtable
 166     .return(1)
 167 .end
 168
 169 .namespace ['MyTrueClass']
 170
 171 .sub '' :anon :load :init
 172     $P0 = newclass ['MyTrueClass']
 173 .end
 174
 175 .sub 'get_bool' :vtable
 176     .return(1)
 177 .end
 178
 179 .sub 'get_integer' :vtable
 180     .return(0)
 181 .end
 182
 183 .namespace []
 184
 185 .sub test_ok
 186     test_pass()
 187     ok( 1 )
 188     test_test( 'passing test ok()')
 189
 190     test_fail()
 191     ok( 0 )
 192     test_test( 'failing test ok()')
 193
 194     test_pass( 'with description' )
 195     ok( 1, 'with description' )
 196     test_test( 'passing test ok() with description')
 197
 198     test_fail( 'with description' )
 199     ok( 0, 'with description' )
 200     test_test( 'failing test ok() with description')
 201
 202     $P0 = new ['MyFalseClass']
 203     test_fail()
 204     ok( $P0 )
 205     test_test( 'failing ok() calls get_bool')
 206
 207     $P0 = new ['MyTrueClass']
 208     test_pass()
 209     ok( $P0 )
 210     test_test( 'passing ok() calls get_bool')
 211 .end
 212
 213 .sub test_nok
 214     test_fail()
 215     nok( 1 )
 216     test_test( 'failing test nok()')
 217
 218     test_pass()
 219     nok( 0 )
 220     test_test( 'passing test nok()')
 221
 222     test_fail( 'with description' )
 223     nok( 1, 'with description' )
 224     test_test( 'failing test nok() with description')
 225
 226     test_pass( 'with description' )
 227     nok( 0, 'with description' )
 228     test_test( 'passing test nok() with description')
 229
 230     $P0 = new ['MyFalseClass']
 231     test_pass()
 232     nok( $P0 )
 233     test_test( 'passing nok() calls get_bool')
 234
 235     $P0 = new ['MyTrueClass']
 236     test_fail()
 237     nok( $P0 )
 238     test_test( 'failing nok() calls get_bool')
 239 .end
 240
 241 .sub test_is
 242     test_pass()
 243     is( 100, 100 )
 244     test_test( 'passing test is() for ints')
 245
 246     test_fail()
 247     test_diag( 'Have: -100' )
 248     test_diag( 'Want: 200' )
 249     is( -100, 200 )
 250     test_test( 'failing test is() for ints')
 251
 252     test_pass( 'comparing two integers' )
 253     is( 512, 512, 'comparing two integers' )
 254     test_test( 'passing test is() for ints with description')
 255
 256     test_fail( 'comparing two integers' )
 257     is( -512, 5120, 'comparing two integers' )
 258     test_diag( 'Have: -512' )
 259     test_diag( 'Want: 5120' )
 260     test_test( 'failing test is() for ints with description')
 261
 262     test_pass()
 263     is( 6.5, 6.5 )
 264     test_test( 'passing test is() for floats')
 265
 266     test_fail()
 267     is( 1.235, 5.321 )
 268     test_diag( 'Have: 1.235' )
 269     test_diag( 'Want: 5.321' )
 270     test_test( 'failing test is() for floats')
 271
 272     test_pass( 'comparing two floats' )
 273     is( 80.80, 80.80, 'comparing two floats' )
 274     test_test( 'passing test is() for floats with description')
 275
 276     test_fail( 'comparing two floats' )
 277     is( 777.1, 888.8, 'comparing two floats' )
 278     test_diag( 'Have: 777.1' )
 279     test_diag( 'Want: 888.8' )
 280     test_test( 'failing test is() for floats with description')
 281
 282     test_fail( 'comparing two floats with precision, failure' )
 283     is( 777.1, 888.8, 'comparing two floats with precision, failure', 1e-6)
 284     test_diag( 'Have: 777.1' )
 285     test_diag( 'Want: 888.8' )
 286     test_test( 'failing test is() for floats with precision')
 287
 288     test_pass( 'comparing two floats with precision, success' )
 289     is( 666.222, 666.223, 'comparing two floats with precision, success', 1e-2)
 290     test_test( 'passing test is() for floats with precision')
 291
 292     test_fail( 'comparing Float PMC and a float with precision, failure' )
 293     $P0 = new 'Float'
 294     $P0 = 888.81
 295     is( $P0, 888.82, 'comparing Float PMC and a float with precision, failure', 1e-2)
 296     test_diag( 'Have: 888.81' )
 297     test_diag( 'Want: 888.82' )
 298     test_test( 'failing test is() for comparing a Float PMC and float with precision')
 299
 300     test_pass( 'comparing Float PMC and a float with precision, success' )
 301     $P0 = 666.222
 302     is( $P0, 666.223, 'comparing Float PMC and a float with precision, success', 1e-2)
 303     test_test( 'passing test is() for comparing Float PMC and float with precision')
 304
 305     test_pass( 'comparing integer and a Float PMC with precision, success' )
 306     $I0 = 42
 307     is( $I0, 41.99, 'comparing integer and a Float PMC with precision, success', 0.1)
 308     test_test( 'passing test is() for comparing Integer PMC and float with precision')
 309
 310     test_fail( 'comparing integer and a Float PMC with precision, failure' )
 311     $I0 = 42
 312     is( $I0, 41.99, 'comparing integer and a Float PMC with precision, failure', 1e-3)
 313     test_diag( 'Have: 42' )
 314     test_diag( 'Want: 41.99' )
 315     test_test( 'failing test is() for comparing Integer PMC and float with precision')
 316
 317     test_pass()
 318     is( 'bob', 'bob' )
 319     test_test( 'passing test is() for strings')
 320
 321     test_fail()
 322     is( 'larry', 'bob' )
 323     test_diag( 'Have: larry' )
 324     test_diag( 'Want: bob' )
 325     test_test( 'failing test is() for strings')
 326
 327     test_pass( 'comparing two strings' )
 328     is( 'larry', 'larry', 'comparing two strings' )
 329     test_test( 'passing test is() for strings with description')
 330
 331     test_fail( 'comparing two strings' )
 332     is( 'zeke', 'zelda', 'comparing two strings' )
 333     test_diag( 'Have: zeke' )
 334     test_diag( 'Want: zelda' )
 335     test_test( 'failing test is() for strings with description')
 336
 337     .local pmc left
 338     .local pmc right
 339     left  = new 'String'
 340     right = new 'String'
 341     left  = 'zero'
 342     right = 'zero'
 343
 344     test_pass()
 345     is( left, right )
 346     test_test( 'passing test is() for pmcs')
 347
 348     right = new 'Integer'
 349     right = 1
 350     test_fail( 'zero versus 1' )
 351     test_diag( 'Have: zero' )
 352     test_diag( 'Want: 1' )
 353     is( left, right, 'zero versus 1' )
 354     test_test( 'failing test is() for pmcs')
 355
 356     left = '1'
 357     test_pass( 'comparing two pmcs' )
 358     is( left, right, 'comparing two pmcs' )
 359     test_test( 'passing test is() for pmcs with description')
 360
 361     right = new 'Hash'
 362
 363     .local string expected
 364     .local string hash_string
 365     expected     = 'Want: '
 366     hash_string  = right
 367     expected    .= hash_string
 368
 369     test_fail( 'comparing two pmcs' )
 370     test_diag( 'Have: 1' )
 371     test_diag( expected )
 372     is( left, right, 'comparing two pmcs' )
 373     test_test( 'failing test is() for pmcs with description' )
 374
 375     test_pass( 'comparing two nulls' )
 376     null left
 377     null right
 378     is( left, right, 'comparing two nulls' )
 379     test_test( 'passing test is() for nulls')
 380
 381     test_fail('comparing null with Int')
 382     null left
 383     right = box 1
 384     is( left, right, 'comparing null with Int')
 385     test_diag( 'Have: null' )
 386     test_diag( 'Want: 1' )
 387     test_test('failing test is() for null vs. pmc 1')
 388
 389     test_fail('comparing Int with null')
 390     left = box 10
 391     null right
 392     is( left, right, 'comparing Int with null')
 393     test_diag( 'Have: 10' )
 394     test_diag( 'Want: null' )
 395     test_test('failing test is() for pmc 10 vs. null')
 396
 397     test_fail('comparing null with Float')
 398     null left
 399     right = box 1.01
 400     is( left, right, 'comparing null with Float')
 401     test_diag( 'Have: null' )
 402     test_diag( 'Want: 1.01' )
 403     test_test('failing test is() for null vs. pmc 1.01')
 404
 405     test_fail('comparing Float with null')
 406     left = box 2.787
 407     null right
 408     is( left, right, 'comparing Float with null')
 409     test_diag( 'Have: 2.787' )
 410     test_diag( 'Want: null' )
 411     test_test('failing test is() for pmc 2.787 vs. null')
 412
 413     test_fail('comparing null with String')
 414     null left
 415     right = box 'September, when it comes'
 416     is( left, right, 'comparing null with String')
 417     test_diag( 'Have: null' )
 418     test_diag( 'Want: September, when it comes' )
 419     test_test('failing test is() for null vs. String pmc')
 420
 421     test_fail('comparing String with null')
 422     left = box 'I cannot move a mountain now'
 423     null right
 424     is( left, right, 'comparing String with null')
 425     test_diag( 'Have: I cannot move a mountain now' )
 426     test_diag( 'Want: null' )
 427     test_test('failing test is() for String pmc vs. null')
 428
 429 .end
 430
 431 .sub test_isnt
 432     test_pass()
 433     isnt( 100, 200 )
 434     test_test( 'passing test isnt() for ints')
 435
 436     test_fail()
 437     test_diag( 'Have: -100' )
 438     test_diag( 'Want: not -100' )
 439     isnt( -100, -100 )
 440     test_test( 'failing test isnt() for ints')
 441
 442     test_pass( 'comparing two unidentical integers' )
 443     isnt( 512, 215, 'comparing two unidentical integers' )
 444     test_test( 'passing test isnt() for ints with description')
 445
 446     test_fail( 'comparing two integers' )
 447     isnt( -512, -512, 'comparing two integers' )
 448     test_diag( 'Have: -512' )
 449     test_diag( 'Want: not -512' )
 450     test_test( 'failing test isnt() for ints with description')
 451
 452     test_pass()
 453     isnt( -6.5, 6.5 )
 454     test_test( 'passing test isnt() for floats')
 455
 456     test_fail()
 457     isnt( 1.235, 1.235 )
 458     test_diag( 'Have: 1.235' )
 459     test_diag( 'Want: not 1.235' )
 460     test_test( 'failing test isnt() for floats')
 461
 462     test_pass( 'comparing two floats' )
 463     isnt( 777.1, 888.8, 'comparing two floats' )
 464     test_test( 'passing test isnt() for floats with description')
 465
 466     test_fail( 'comparing two floats' )
 467     isnt( 80.8, 80.8, 'comparing two floats' )
 468     test_diag( 'Have: 80.8' )
 469     test_diag( 'Want: not 80.8' )
 470     test_test( 'failing test isnt() for floats with description')
 471
 472     test_pass()
 473     isnt( 'bob', 'BoB' )
 474     test_test( 'passing test isnt() for strings')
 475
 476     test_fail()
 477     isnt( 'larry', 'larry' )
 478     test_diag( 'Have: larry' )
 479     test_diag( 'Want: not larry' )
 480     test_test( 'failing test isnt() for strings')
 481
 482     test_pass( 'comparing two strings' )
 483     isnt( 'zeke', 'zelda', 'comparing two strings' )
 484     test_test( 'passing test isnt() for strings with description')
 485
 486     test_fail( 'comparing two strings' )
 487     isnt( 'larry', 'larry', 'comparing two strings' )
 488     test_diag( 'Have: larry' )
 489     test_diag( 'Want: not larry' )
 490     test_test( 'failing test isnt() for strings with description')
 491
 492     .local pmc left
 493     .local pmc right
 494     left  = new 'String'
 495     right = new 'String'
 496     left  = 'zero'
 497     right = '0'
 498
 499     test_pass()
 500     isnt( left, right )
 501     test_test( 'passing test isnt() for pmcs')
 502
 503     right = new 'String'
 504     right = 'zero'
 505     test_fail()
 506     test_diag( 'Have: zero' )
 507     test_diag( 'Want: not zero' )
 508     isnt( left, right )
 509     test_test( 'failing test isnt() for pmcs')
 510
 511     left = '0'
 512     test_pass( 'comparing two pmcs' )
 513     isnt( left, right, 'comparing two pmcs' )
 514     test_test( 'passing test isnt() for pmcs with description')
 515
 516     right = new 'Hash'
 517
 518     .local string expected
 519     .local string hash_string
 520     expected     = 'Want: '
 521     hash_string  = right
 522     expected    .= hash_string
 523
 524     test_pass( 'comparing two pmcs' )
 525     isnt( left, right, 'comparing two pmcs' )
 526     test_test( 'failing test isnt() for pmcs with description')
 527 .end
 528
 529 .sub test_like
 530     test_pass()
 531     like( 'abcdef', '<[c]>' )
 532     test_test( 'passing test like()' )
 533
 534     test_pass( 'testing like()' )
 535     like( 'abcdef', '<[c]>', 'testing like()' )
 536     test_test( 'passing test like() with description' )
 537
 538     test_fail()
 539
 540     test_diag( "match failed: target 'abcdef' does not match pattern '<[g]>'" )
 541     like( 'abcdef', '<[g]>' )
 542     test_test( 'failing test like()' )
 543
 544     test_fail( 'testing like()' )
 545     test_diag( "match failed: target 'abcdef' does not match pattern '<[g]>'" )
 546     like( 'abcdef', '<[g]>', 'testing like()' )
 547     test_test( 'failing test like() with description' )
 548
 549     test_pass( 'like() can match literal strings' )
 550     like( 'foobar', 'foobar', 'like() can match literal strings' )
 551     test_test( 'like() can match literal strings' )
 552
 553     test_pass( 'like() can match partial literal strings' )
 554     like( 'foobar()', 'foobar', 'like() can match partial literal strings' )
 555     test_test( 'like() can match partial literal strings' )
 556
 557     test_pass( 'like() can match partial literal strings with spaces' )
 558     like( 'foo bar()', 'foo\ bar', 'like() can match partial literal strings with spaces' )
 559     test_test( 'like() can match partial literal strings with spaces' )
 560 .end
 561
 562 .sub test_is_deeply
 563     test_is_deeply_array()
 564     test_is_deeply_hash()
 565     test_is_deeply_hash_tt763()
 566     test_is_deeply_mismatch()
 567     test_is_deeply_nested()
 568 .end
 569
 570 .sub test_is_deeply_array
 571     .local pmc left
 572     .local pmc right
 573     left  = new 'ResizablePMCArray'
 574     right = new 'ResizablePMCArray'
 575
 576     push left,  7
 577     push right, 7
 578     push left,  'seven'
 579     push right, 'seven'
 580
 581     test_pass()
 582     is_deeply( left, right )
 583     test_test( 'passing test is_deeply() for pmc arrays' )
 584
 585     test_pass( 'comparing two pmc arrays' )
 586     is_deeply( left, right, 'comparing two pmc arrays' )
 587     test_test( 'passing test is_deeply() for pmc arrays with description' )
 588
 589     push left,  '9 - 2'
 590
 591     test_fail()
 592     test_diag( 'Mismatch: expected 3 elements, received 2' )
 593     is_deeply( left, right )
 594     test_test( 'failing test is_deeply() for pmc arrays' )
 595
 596     test_fail( 'comparing two pmc arrays' )
 597     test_diag( 'Mismatch: expected 3 elements, received 2' )
 598     is_deeply( left, right, 'comparing two pmc arrays' )
 599     test_test( 'failing test is_deeply() for pmc arrays with description' )
 600
 601     push right, '9 - 3'
 602     test_fail()
 603     test_diag( 'Mismatch at [2]: expected 9 - 2, received 9 - 3' )
 604     is_deeply( left, right )
 605     test_test( 'failing test is_deeply() for item mismatch at position' )
 606
 607     test_fail( 'comparing mismatch of elements' )
 608     test_diag( 'Mismatch at [2]: expected 9 - 2, received 9 - 3' )
 609     is_deeply( left, right, 'comparing mismatch of elements' )
 610     test_test( 'failing test is_deeply() for item mismatch at position' )
 611 .end
 612
 613 .sub test_is_deeply_hash
 614     .local pmc left
 615     .local pmc right
 616     .local pmc undef1
 617     .local pmc undef2
 618
 619     left   = new 'Hash'
 620     right  = new 'Hash'
 621     undef1 = new 'Undef'
 622     undef2 = new 'Undef'
 623
 624     test_pass()
 625     is_deeply( left, right )
 626     test_test( 'passing test is_deeply() for empty pmc hashes' )
 627
 628     test_pass( 'empty hashes match' )
 629     is_deeply( left, right, 'empty hashes match' )
 630     test_test( 'passing test is_deeply() for empty pmc hashes with diagnostic' )
 631
 632     left['foo'] = 1
 633
 634     test_fail()
 635     is_deeply( left, right )
 636     test_diag( 'Mismatch: expected 1 element, received 0' )
 637     test_test( 'failing is_deeply() for hashes with different numbers of keys' )
 638
 639     left['bar']  = 1
 640     right['bar'] = 1
 641
 642     test_fail( 'more diag' )
 643     is_deeply( left, right, 'more diag' )
 644     test_diag( 'Mismatch: expected 2 elements, received 1' )
 645     test_test( '... with description and proper pluralization' )
 646
 647     right['foo'] = 2
 648
 649     test_fail()
 650     is_deeply( left, right )
 651     test_diag( 'Mismatch at [foo]: expected 1, received 2' )
 652     test_test( 'failing is_deeply() for hash with value mismatch' )
 653
 654     test_fail( '2 is not 1' )
 655     is_deeply( left, right, '2 is not 1' )
 656     test_diag( 'Mismatch at [foo]: expected 1, received 2' )
 657     test_test( '... with description' )
 658
 659     right['foo'] = 1
 660     test_pass()
 661     is_deeply( left, right )
 662     test_test( 'passing test is_deeply() for hashes created in different orders' )
 663 .end
 664
 665 .sub test_is_deeply_hash_tt763
 666     .local pmc left
 667     .local pmc right
 668     .local pmc undef1
 669     .local pmc undef2
 670
 671     left   = new 'Hash'
 672     right  = new 'Hash'
 673     undef1 = new 'Undef'
 674     undef2 = new 'Undef'
 675     right['undef1'] = undef1
 676     left['undef2']  = undef2
 677
 678     test_fail()
 679     is_deeply( left, right )
 680     test_diag( 'Mismatch at [undef2]: expected (undef), received nonexistent' )
 681     test_test( 'failing is_deeply() for undef in left, nonexistent in right' )
 682
 683     test_fail()
 684     is_deeply( right, left )
 685     test_diag( 'Mismatch at [undef1]: expected (undef), received nonexistent' )
 686     test_test( 'failing is_deeply() for undef in left, nonexistent in right' )
 687
 688     right['undef2'] = undef2
 689     left['undef1']  = undef1
 690
 691     test_pass()
 692     is_deeply( left, right )
 693     test_test( 'passing is_deeply() with undef values' )
 694
 695     left['foo'] = undef1
 696     test_fail()
 697     is_deeply( left, right )
 698     test_diag( 'Mismatch: expected 3 elements, received 2')
 699     test_test( 'failing is_deeply() for hashes differing by keys with undef values' )
 700
 701     right['bar'] = undef1
 702     test_fail()
 703     is_deeply( left, right )
 704     test_diag( 'Mismatch at [foo]: expected (undef), received nonexistent')
 705     test_test( 'failing is_deeply() for hashes differing by keys with undef values' )
 706 .end
 707
 708 .sub test_is_deeply_mismatch
 709 .end
 710
 711 .sub test_is_deeply_nested
 712     .local pmc left
 713     .local pmc right
 714
 715     left  = new 'Hash'
 716     right = new 'Hash'
 717
 718     .local pmc left_array
 719     .local pmc right_array
 720     left_array  = new 'ResizablePMCArray'
 721     left_array  = 3
 722     right_array = new 'ResizablePMCArray'
 723     right_array = 3
 724
 725     left[  'array' ] = left_array
 726     right[ 'array' ] = right_array
 727
 728     left_array[0]  = 1
 729     right_array[0] = 1
 730
 731     test_pass()
 732     is_deeply( left, right )
 733     test_test( 'Nested data structure equality' )
 734
 735     test_pass( '... are they equal?' )
 736     is_deeply( left, right, '... are they equal?' )
 737     test_test( '... with description' )
 738
 739     right_array[2] = 2
 740
 741     test_fail()
 742     is_deeply( left, right )
 743     test_diag( 'Mismatch at [array][2]: expected (undef), received 2' )
 744     test_test( 'Nested data structure inequality' )
 745
 746     test_fail( '... are they inequal?' )
 747     is_deeply( left, right, '... are they inequal?' )
 748     test_diag( 'Mismatch at [array][2]: expected (undef), received 2' )
 749     test_test( '... with description' )
 750 .end
 751
 752 .sub test_diagnostics
 753     test_pass()
 754     ok( 1 )
 755     diag( 'foo bar baz' )
 756     test_diag( 'foo bar baz' )
 757     test_test( 'single line diagnostics' )
 758
 759     test_pass()
 760     ok( 1 )
 761     diag( 'foo bar baz' )
 762     diag( 'rum tum tugger')
 763     test_diag( "foo bar baz\nrum tum tugger" )
 764     test_test( 'multi line diagnostics' )
 765 .end
 766
 767 .sub test_skip
 768
 769     .local pmc test
 770     test = new [ 'Test'; 'Builder' ]
 771
 772     test_out( 'ok 1 #skip skipping' )
 773     test_out( 'ok 2 #skip skipping' )
 774     test.'skip'( 2, 'skipping' )
 775     test_test( 'skip test should pass' )
 776
 777     test_out( 'ok 3 #skip skipped' )
 778     skip( 1 )
 779     test_test( 'skip(int)' )
 780
 781     test_out( 'ok 4 #skip jumping' )
 782     skip( "jumping" )
 783     test_test( 'skip(string)' )
 784
 785     test_out( 'ok 5 #skip lunch' )
 786     test_out( 'ok 6 #skip lunch' )
 787     skip( 2, "lunch" )
 788     test_test( 'skip(int, string)' )
 789
 790     test_out( 'ok 7 #skip skipped' )
 791     skip()
 792     test_test( 'skip()' )
 793 .end
 794
 795 .sub test_todo
 796
 797     .local pmc test
 798     test = new [ 'Test'; 'Builder' ]
 799
 800     test_out( 'ok 8 # TODO todo reason' )
 801     test.'todo'( 1, 'passing test', 'todo reason' )
 802     test_test( 'todo test should pass, marked as TODO' )
 803
 804     test_out( "not ok 9 # TODO todo reason\n\tFailed (TODO) test 'failing test'" )
 805     test.'todo'( 0, 'failing test', 'todo reason' )
 806     test_test( 'todo test should fail, marked as TODO' )
 807
 808     test_out( 'ok 10 # TODO todo reason' )
 809     todo( 1, 'passing test', 'todo reason' )
 810     test_test( 'todo test should pass, marked as TODO' )
 811
 812     test_out( "not ok 11 # TODO todo reason\n\tFailed (TODO) test 'failing test'" )
 813     todo( 0, 'failing test', 'todo reason' )
 814     test_test( 'todo test should fail, marked as TODO' )
 815
 816     test_out( "not ok 12 # TODO \n\tFailed (TODO) test ''" )
 817     todo( 0 )
 818     test_test( 'todo test with no description or reason' )
 819
 820 .end
 821
 822 .sub test_isa_ok
 823     .local pmc dog, terrier, daschund, Spot, Sossy
 824
 825     dog = newclass "dog"
 826     terrier = subclass dog, "terrier"
 827     daschund = subclass dog, "daschund"
 828
 829     Spot = new "terrier"
 830     Sossy = new "daschund"
 831
 832     test_pass( 'Spot isa terrier' )
 833     isa_ok(Spot, "terrier", "Spot")
 834     test_test( 'passing isa_ok for PMC/string (class =)' )
 835
 836     test_pass( 'Spot isa dog' )
 837     isa_ok(Spot, "dog", "Spot")
 838     test_test( 'passing isa_ok for PMC/string (super)')
 839
 840     test_pass( 'Sossy isa daschund' )
 841     $P1 = new 'String'
 842         $P1 = "daschund"
 843     isa_ok(Sossy, $P1, "Sossy")
 844     test_test( 'passing isa_ok for PMC/PMC (class =)' )
 845
 846     test_pass( 'Sossy isa dog' )
 847     $P2 = new 'String'
 848         $P2 = "dog"
 849     isa_ok(Sossy, $P2, "Sossy")
 850     test_test( 'passing isa_ok for PMC/PMC (super)')
 851
 852     test_pass( 'The object isa terrier' )
 853     isa_ok(Spot, "terrier")
 854     test_test( 'passing isa_ok with no object description (class =)' )
 855
 856     test_fail( 'Spot isa daschund' )
 857     test_diag( "Spot isn't a daschund it's a terrier" )
 858     isa_ok(Spot, 'daschund', "Spot")
 859     test_test( 'failing test isnt() for PMC/string')
 860
 861 .end
 862
 863 .sub test_is_null
 864     test_pass( 'null is_null')
 865     null $P0
 866     is_null($P0, 'null is_null')
 867     test_test( 'passing is_null with null')
 868
 869     test_fail( 'String is not null' )
 870     $P0 = box 'Concerto'
 871     is_null($P0, 'String is not null')
 872     test_diag( "Have: Concerto" )
 873     test_diag( "Want: null" )
 874     test_test( 'failing test is_null for String pmc')
 875 .end
 876
 877 # Local Variables:
 878 #   mode: pir
 879 #   fill-column: 100
 880 # End:
 881 # vim: expandtab shiftwidth=4 ft=pir: