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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sat Jun 19 18:11:52 2010
New Revision: 47717
URL: https://trac.parrot.org/parrot/changeset/47717

Log:
test Handle init_pmc

Modified:
   trunk/t/pmc/handle.t

Modified: trunk/t/pmc/handle.t
==============================================================================
--- trunk/t/pmc/handle.t	Sat Jun 19 18:03:25 2010	(r47716)
+++ trunk/t/pmc/handle.t	Sat Jun 19 18:11:52 2010	(r47717)
@@ -20,7 +20,7 @@
 .sub main :main
     .include 'test_more.pir'
 
-    plan(2)
+    plan(3)
     'test_create'()
     'test_does_tt_1473'()
 .end
@@ -35,6 +35,17 @@
     ok(1, "Cannot instantiate an abstract type")
     pop_eh
   create_end:
+
+    $P1 = new ['String']
+    push_eh cant_instantiate_arg
+    $P0 = new ['Handle'], $P1
+    ok(0, "Can instantiate an abstract type with arg")
+    pop_eh
+    goto create_end_arg
+  cant_instantiate_arg:
+    ok(1, "Cannot instantiate an abstract type with arg")
+    pop_eh
+  create_end_arg:
 .end
 
 .sub 'test_does_tt_1473'