[perl #49596] [PATCH] convert eventhandler.t from perl to pir

[via RT]

# New Ticket Created by  Mark Grimes 
# Please include the string:  [perl #49596]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=49596 >


Hi all,

The attached patch is an attempt at converting t/pmc/eventhandler.t from
perl to parrot (as outlined in the parrot wiki). This is a pretty minor
patch, but I wanted to make sure I was heading down the right path
before working through a bunch of them. 

This is my first stab at PIR, so suggestions/critisism/etc is very
welcome. 

Thanks,
Mark

[EMAIL PROTECTED]


Index: t/pmc/eventhandler.t
===================================================================
--- t/pmc/eventhandler.t        (revision 24707)
+++ t/pmc/eventhandler.t        (working copy)
@@ -1,13 +1,7 @@
-#! perl
+#! parrot
 # Copyright (C) 2007, The Perl Foundation.
 # $Id $
 
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
 =head1 NAME
 
 t/pmc/eventhandler.t - Parrot Event Handling
@@ -22,12 +16,19 @@
 
 =cut
 
-pir_output_is( <<'CODE', <<'OUT', "create an event and set attributes" );
-  .sub main :main
+.sub main :main
+    .include 'include/test_more.pir'
+
+    plan(4)
+
+    create_an_event_and_set_attributes()
+.end
+
+.sub create_an_event_and_set_attributes
     .local pmc eh
     eh  = new 'EventHandler'
     $S0 = typeof eh
-    say $S0
+    is( $S0, 'EventHandler', 'Created EventHandler' )
 
     .local pmc init
     init = new 'Hash'
@@ -48,32 +49,28 @@
 
     eh  = new 'EventHandler', init
     $S0 = typeof eh
-    say $S0
+    is( $S0, 'EventHandler', 'Created EventHandler with args' )
 
     $S1 = eh
-    say $S1
+    is( $S1, 'cool event', 'Event type confirmed' )
 
     push_eh bad_args
         eh = new 'EventHandler', code
     pop_eh
 
-    say "All clear!"
+    ok( 1, 'No exception from initializer' )
     end
 
   bad_args:
-    say "No exception with bad initializer"
+    ok( 0, 'Exception with bad initializer' )
     end
-  .end
 
-  .sub my_handler
-  .end
-CODE
-EventHandler
-EventHandler
-cool event
-All clear!
-OUT
+.end
 
+.sub my_handler
+.end
+
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4