t/01-parse_plan.t

   1 #!parrot
   2
   3 .include 'lib/Tapir/Parser.pir'
   4 .include 'lib/Tapir/Stream.pir'
   5
   6 .sub main :main
   7     .include 'test_more.pir'
   8     .local pmc tapir, klass
   9
  10     plan(3)
  11
  12     # setup test data
  13     klass = newclass [ 'Tapir'; 'Parser' ]
  14     tapir = klass.'new'()
  15
  16     # run tests
  17     test_parse_plan(tapir)
  18 .end
  19
  20
  21 .sub test_parse_plan
  22     .param pmc tapir
  23     .local int num_tests
  24
  25     $S0  = "1..5\nCauchy Residue Theorem!"
  26     num_tests = tapir.'parse_plan'($S0)
  27     is(num_tests,5,'parse_plan can parse a simple plan')
  28
  29     $S0  = "1..1\nCauchy Residue Theorem!"
  30     num_tests = tapir.'parse_plan'($S0)
  31     is(num_tests,1,'parse_plan can parse a single test plan')
  32
  33     $S0  = "1..0\nCauchy Residue Theorem!"
  34     num_tests = tapir.'parse_plan'($S0)
  35     is(num_tests,0,'parse_plan can parse a no-test plan')
  36 .end
  37
  38
  39 # Local Variables:
  40 #   mode: pir
  41 #   fill-column: 100
  42 # End:
  43 # vim: expandtab shiftwidth=4 ft=pir:
  44