t/pir/timer_exit.t

   1 #!./parrot
   2 # Copyright (C) 2010, Parrot Foundation.
   3 # $Id$
   4
   5 .include 'timer.pasm'
   6
   7 .sub main :main
   8    say "1..1"
   9
  10    $P0 = new 'FixedPMCArray', 8
  11    $P0[0] = .PARROT_TIMER_NSEC
  12    $P0[1] = 0.1
  13    $P0[2] = .PARROT_TIMER_HANDLER
  14    $P1 = get_global 'got_timer'
  15    $P0[3] = $P1
  16    $P0[4] = .PARROT_TIMER_REPEAT
  17    $P0[5] = 0
  18    $P0[6] = .PARROT_TIMER_RUNNING
  19    $P0[7] = 1
  20
  21    $P2 = new 'Timer', $P0
  22    sleep 1
  23    say "not ok 3"
  24 .end
  25
  26 .sub got_timer
  27    say "ok 1"
  28    exit 0
  29    say "not ok 2"
  30 .end
  31
  32 # Local Variables:
  33 #   mode: pir
  34 #   fill-column: 100
  35 # End:
  36 # vim: expandtab shiftwidth=4 ft=pir: