t/pmc/eventhandler.t

   1 #!./parrot
   2 # Copyright (C) 2007-2010, Parrot Foundation.
   3 # $Id$
   4
   5 =head1 NAME
   6
   7 t/pmc/eventhandler.t - Parrot Event Handling
   8
   9 =head1 SYNOPSIS
  10
  11     % prove t/pmc/eventhandler.t
  12
  13 =head1 DESCRIPTION
  14
  15 Tests the EventHandler PMC used by the event system.
  16
  17 =cut
  18
  19 .sub main :main
  20     .include 'test_more.pir'
  21
  22     plan(4)
  23
  24     create_an_event_and_set_attributes()
  25 .end
  26
  27 .sub create_an_event_and_set_attributes
  28     .local pmc eh
  29     eh  = new ['EventHandler']
  30     $S0 = typeof eh
  31     is( $S0, 'EventHandler', 'Created EventHandler' )
  32
  33     .local pmc init
  34     init = new ['Hash']
  35
  36     .local pmc type
  37     type         = new ['String']
  38     type         = 'cool event'
  39     init['type'] = type
  40
  41     .local pmc priority
  42     priority         = new ['Integer']
  43     priority         = 10
  44     init['priority'] = priority
  45
  46     .local pmc code
  47     code         = get_global 'my_handler'
  48     init['code'] = code
  49
  50     eh  = new ['EventHandler'], init
  51     $S0 = typeof eh
  52     is( $S0, 'EventHandler', 'Created EventHandler with args' )
  53
  54     $S1 = eh
  55     is( $S1, 'cool event', 'Event type confirmed' )
  56
  57     push_eh bad_args
  58         eh = new ['EventHandler'], code
  59     pop_eh
  60
  61     ok( 1, 'No exception from initializer' )
  62     .return()
  63
  64   bad_args:
  65     ok( 0, 'Exception with bad initializer' )
  66
  67 .end
  68
  69 .sub my_handler
  70 .end
  71
  72
  73 # Local Variables:
  74 #   mode: pir
  75 #   fill-column: 100
  76 # End:
  77 # vim: expandtab shiftwidth=4 ft=pir: