t/library/test_builder_done_testing.t

   1 #!./parrot
   2 # Copyright (C) 2005-2008, Parrot Foundation.
   3 # $Id$
   4
   5 .sub _main :main
   6    load_bytecode 'Test/Builder/Tester.pbc'
   7
   8    .local pmc tb_args
   9    tb_args = new 'Hash'
  10
  11    .local pmc test
  12    test = new [ 'Test'; 'Builder' ], tb_args
  13
  14    .local pmc plan
  15    .local pmc test_pass
  16    .local pmc test_fail
  17    .local pmc test_out
  18    .local pmc test_diag
  19    .local pmc test_test
  20    plan      = get_global [ 'Test'; 'Builder'; 'Tester' ], 'plan'
  21    test_pass = get_global [ 'Test'; 'Builder'; 'Tester' ], 'test_pass'
  22    test_fail = get_global [ 'Test'; 'Builder'; 'Tester' ], 'test_fail'
  23    test_out  = get_global [ 'Test'; 'Builder'; 'Tester' ], 'test_out'
  24    test_diag = get_global [ 'Test'; 'Builder'; 'Tester' ], 'test_diag'
  25    test_test = get_global [ 'Test'; 'Builder'; 'Tester' ], 'test_test'
  26
  27    plan( 4 )
  28
  29    test_out( 'ok 1 - hi' )
  30    test.'ok'( 1, 'hi' )
  31    test_test( 'passing test')
  32
  33    test_out( 'not ok 2 - bye' )
  34    test.'ok'( 0, 'bye' )
  35    test_test( 'failing test')
  36
  37    test_out( "\n1..2" )
  38    test.'done_testing'()
  39    test_test( 'Simple done_testing works' )
  40
  41    test_out( "1..3" )
  42    test_out( "Expected 3 but ran 2" )
  43    test.'done_testing'(3)
  44    test_test( 'done_testing with bad plan works' )
  45
  46    test.'finish'()
  47 .end
  48
  49 # Local Variables:
  50 #   mode: pir
  51 #   fill-column: 100
  52 # End:
  53 # vim: expandtab shiftwidth=4 ft=pir: