lib/Tapir/Stream.pir

   1 # Copyright (C) 2009, Jonathan "Duke" Leto <jonathan@leto.net>
   2
   3 .namespace [ 'Tapir'; 'Stream' ]
   4
   5 # This is so you can run parrot on this file as a syntax check
   6 .sub main :main
   7 .end
   8
   9 .sub set_pass :method
  10     .param pmc pass
  11     setattribute self, "pass", pass
  12 .end
  13
  14 .sub set_fail :method
  15     .param pmc fail
  16     setattribute self, "fail", fail
  17 .end
  18
  19 .sub set_todo :method
  20     .param pmc todo
  21     setattribute self, "todo", todo
  22 .end
  23
  24 .sub set_skip :method
  25     .param pmc skip
  26     setattribute self, "skip", skip
  27 .end
  28
  29 .sub set_plan :method
  30     .param pmc plan
  31     setattribute self, "plan", plan
  32 .end
  33
  34 .sub get_pass :method
  35     .param pmc pass
  36     pass = getattribute self, "pass"
  37     .return( pass )
  38 .end
  39
  40 .sub get_fail :method
  41     .param pmc fail
  42     fail = getattribute self, "fail"
  43     .return( fail )
  44 .end
  45
  46 .sub get_todo :method
  47     .param pmc todo
  48     todo = getattribute self, "todo"
  49     .return( todo )
  50 .end
  51
  52 .sub get_skip :method
  53     .param pmc skip
  54     skip = getattribute self, "skip"
  55     .return( skip )
  56 .end
  57
  58 .sub get_plan :method
  59     .param pmc plan
  60     plan = getattribute self, "plan"
  61     .return( plan )
  62 .end
  63
  64 .sub total :method
  65     .local pmc skip, pass, fail, todo
  66     skip = getattribute self, "skip"
  67     pass = getattribute self, "pass"
  68     fail = getattribute self, "fail"
  69     todo = getattribute self, "todo"
  70     $P0  = pass + fail
  71     $P0 += todo
  72     $P0 += skip
  73     .return( $P0 )
  74 .end
  75
  76
  77 # Local Variables:
  78 #   mode: pir
  79 #   fill-column: 100
  80 # End:
  81 # vim: expandtab shiftwidth=4 ft=pir:
  82