[svn:parrot] r41572 - trunk/t/pmc

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Wed Sep 30 06:50:01 2009
New Revision: 41572
URL: https://trac.parrot.org/parrot/changeset/41572

Log:
[t] Convert an exception test to PIR

Modified:
   trunk/t/pmc/exception-old.t
   trunk/t/pmc/exception.t

Modified: trunk/t/pmc/exception-old.t
==============================================================================
--- trunk/t/pmc/exception-old.t	Wed Sep 30 03:30:15 2009	(r41571)
+++ trunk/t/pmc/exception-old.t	Wed Sep 30 06:50:01 2009	(r41572)
@@ -6,7 +6,7 @@
 use warnings;
 use lib qw( . lib ../lib ../../lib );
 use Test::More;
-use Parrot::Test tests => 33;
+use Parrot::Test tests => 32;
 
 =head1 NAME
 
@@ -22,19 +22,6 @@
 
 =cut
 
-pasm_output_is( <<'CODE', <<'OUTPUT', "push_eh - pop_eh" );
-    push_eh _handler
-    print "ok 1\n"
-    pop_eh
-    print "ok 2\n"
-    end
-_handler:
-    end
-CODE
-ok 1
-ok 2
-OUTPUT
-
 pir_output_is( <<'CODE', <<'OUTPUT', "push_eh - pop_eh, PMC exception handler" );
 .sub main :main
     $P0 = new ['ExceptionHandler']

Modified: trunk/t/pmc/exception.t
==============================================================================
--- trunk/t/pmc/exception.t	Wed Sep 30 03:30:15 2009	(r41571)
+++ trunk/t/pmc/exception.t	Wed Sep 30 06:50:01 2009	(r41572)
@@ -18,10 +18,23 @@
 
 .sub main :main
     .include 'test_more.pir'
-    plan( 7 )
+    plan( 9 )
     test_bool()
     test_int()
     test_attrs()
+    test_push_pop_eh()
+.end
+
+.sub test_push_pop_eh
+    push_eh handler
+    ok(1,'push_eh works')
+
+    pop_eh
+    ok(1,'pop_eh works')
+    .return()
+
+  handler:
+    say "i am the decider"
 .end
 
 .sub test_bool