t/01-parse_plan.t

   1 #!parrot
   2
   3 #   .include 'lib/Tapir/Base.pir'
   4 #    load_bytecode 'PGE.pbc'
   5 #    load_bytecode 'Dumper.pbc'
   6 .include 'lib/Tapir/Parser.pir'
   7 .include 'lib/Tapir/Stream.pir'
   8
   9
  10 .sub main :main
  11     .include 'test_more.pir'
  12     .local pmc tapir, klass
  13
  14     plan(33)
  15
  16     # setup test data
  17     klass = newclass [ 'Tapir'; 'Parser' ]
  18     tapir = klass.'new'()
  19
  20     # run tests
  21     test_parse_plan(tapir)
  22     test_is_pass(tapir)
  23     test_parse_tapstream_simple(tapir)
  24     test_parse_tapstream_all_pass(tapir)
  25     test_parse_tapstream_all_fail(tapir)
  26     test_parse_tapstream_diagnostics(tapir)
  27 .end
  28
  29 .sub test_is_pass
  30     .param pmc tapir
  31     .local pmc stream
  32     $S0  = "1..2\nok 1 - i like cheese\nok 2 - foobar\n"
  33     stream = tapir.'parse_tapstream'($S0)
  34     $I0 = stream.'is_pass'()
  35     is($I0,1,"is_pass correctly detects 2 passing tests")
  36
  37     $S0  = "1..3\nok 1 - i like cheese\nok 2 - foobar\nnot ok 3 - blammo!\n"
  38     stream = tapir.'parse_tapstream'($S0)
  39     $I0 = stream.'is_pass'()
  40     is($I0,0,"is_pass correctly detected 1 failing test")
  41
  42     $S0  = "1..2\nok 1 - i like cheese\nok 2 - foobar\nok 3 - blammo!\n"
  43     stream = tapir.'parse_tapstream'($S0)
  44     $I0 = stream.'is_pass'()
  45     is($I0,0,"is_pass correctly detects that too many tests have run")
  46
  47     $S0  = "1..4\nok 1 - i like cheese\nok 2 - foobar\nok 3 - blammo!\n"
  48     stream = tapir.'parse_tapstream'($S0)
  49     $I0 = stream.'is_pass'()
  50     is($I0,0,"is_pass correctly detects that too few tests have run")
  51 .end
  52
  53 .sub test_parse_tapstream_diagnostics
  54     .param pmc tapir
  55     .local pmc stream
  56     $S0  = "1..2\nok 1 - i like cheese\nok 2 - foobar\n"
  57     stream = tapir.'parse_tapstream'($S0)
  58     $I0 = stream.'get_plan'()
  59     is($I0,2,"parse_tapstream detects the plan correctly")
  60
  61     $I0 = stream.'get_pass'()
  62     is($I0,2,"parse_tapstream detects a passing test with diag")
  63
  64     $I0 = stream.'get_fail'()
  65     is($I0,0,"parse_tapstream detects no failing test")
  66
  67     $S0  = "1..2\nnot ok 1 - i like cheese\nnot ok 2 - foobar\n"
  68     stream = tapir.'parse_tapstream'($S0)
  69     $I0 = stream.'get_plan'()
  70     is($I0,2,"parse_tapstream detects the plan correctly")
  71
  72     $I0 = stream.'get_pass'()
  73     is($I0,0,"parse_tapstream detects no passing tests with diag")
  74
  75     $I0 = stream.'get_fail'()
  76     is($I0,2,"parse_tapstream detects 2 failing tests with diag")
  77
  78     $I0 = stream.'total'()
  79     is($I0,2,"parse_tapstream detected 2 tests in total")
  80 .end
  81
  82 .sub test_parse_tapstream_all_pass
  83     .param pmc tapir
  84     .local pmc stream
  85     $S0  = "1..2\nok 1\nok 2\n"
  86     stream = tapir.'parse_tapstream'($S0)
  87
  88     $I0 = stream.'get_plan'()
  89     is($I0,2,"parse_tapstream detects the plan correctly")
  90
  91     $I0 = stream.'get_pass'()
  92     is($I0,2,"parse_tapstream detects a passing test")
  93
  94     $I0 = stream.'get_fail'()
  95     is($I0,0,"parse_tapstream detects a failing test")
  96
  97     $I0 = stream.'get_todo'()
  98     is($I0,0,"parse_tapstream detects no todo test")
  99
 100     $I0 = stream.'get_skip'()
 101     is($I0,0,"parse_tapstream detects no skipped test")
 102
 103     $I0 = stream.'total'()
 104     is($I0,2,"parse_tapstream detected 2 tests in total")
 105 .end
 106
 107 .sub test_parse_tapstream_all_fail
 108     .param pmc tapir
 109     .local pmc stream
 110     $S0  = "1..2\nnot ok 1\nnot ok 2\n"
 111     stream = tapir.'parse_tapstream'($S0)
 112
 113     $I0 = stream.'get_plan'()
 114     is($I0,2,"parse_tapstream detects the plan correctly")
 115
 116     $I0 = stream.'get_pass'()
 117     is($I0,0,"parse_tapstream detects no passing tests")
 118
 119     $I0 = stream.'get_fail'()
 120     is($I0,2,"parse_tapstream detects 2 failing tests")
 121
 122     $I0 = stream.'get_todo'()
 123     is($I0,0,"parse_tapstream detects no todo test")
 124
 125     $I0 = stream.'get_skip'()
 126     is($I0,0,"parse_tapstream detects no skipped test")
 127
 128     $I0 = stream.'total'()
 129     is($I0,2,"parse_tapstream detected 2 tests in total")
 130 .end
 131
 132 .sub test_parse_tapstream_simple
 133     .param pmc tapir
 134     .local pmc stream
 135     $S0  = "1..2\nok 1\nnot ok 2\n"
 136     stream = tapir.'parse_tapstream'($S0)
 137     $S1 = typeof stream
 138     is($S1,"Tapir;Stream","parse_tapstream returns a Tapir;Stream object")
 139
 140     $I0 = stream.'get_plan'()
 141     is($I0,2,"parse_tapstream detects the plan correctly")
 142
 143     $I0 = stream.'get_pass'()
 144     is($I0,1,"parse_tapstream detects a passing test")
 145
 146     $I0 = stream.'get_fail'()
 147     is($I0,1,"parse_tapstream detects a failing test")
 148
 149     $I0 = stream.'get_todo'()
 150     is($I0,0,"parse_tapstream detects no todo test")
 151
 152     $I0 = stream.'get_skip'()
 153     is($I0,0,"parse_tapstream detects no skipped test")
 154
 155     $I0 = stream.'total'()
 156     is($I0,2,"parse_tapstream detected 2 tests in total")
 157 .end
 158
 159 .sub test_parse_plan
 160     .param pmc tapir
 161     .local int num_tests
 162
 163     $S0  = "1..5\nCauchy Residue Theorem!"
 164     num_tests = tapir.'parse_plan'($S0)
 165     is(num_tests,5,'parse_plan can parse a simple plan')
 166
 167     $S0  = "1..1\nCauchy Residue Theorem!"
 168     num_tests = tapir.'parse_plan'($S0)
 169     is(num_tests,1,'parse_plan can parse a single test plan')
 170
 171     $S0  = "1..0\nCauchy Residue Theorem!"
 172     num_tests = tapir.'parse_plan'($S0)
 173     is(num_tests,0,'parse_plan can parse a no-test plan')
 174 .end
 175
 176
 177 # Local Variables:
 178 #   mode: pir
 179 #   fill-column: 100
 180 # End:
 181 # vim: expandtab shiftwidth=4 ft=pir:
 182