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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat May  8 08:17:16 2010
New Revision: 46402
URL: https://trac.parrot.org/parrot/changeset/46402

Log:
Rewrite test for 'new ["default"]'

Modified:
   trunk/t/pmc/default.t

Modified: trunk/t/pmc/default.t
==============================================================================
--- trunk/t/pmc/default.t	Sat May  8 08:17:02 2010	(r46401)
+++ trunk/t/pmc/default.t	Sat May  8 08:17:16 2010	(r46402)
@@ -26,8 +26,13 @@
 .end
 
 .sub test_default
-    #new $P0, ['default']
-    todo(0,'the default PMC does not exist')
+    $I0 = 1
+    push_eh bang
+    new $P0, ['default']
+    $I0 = 0
+  bang:
+    pop_eh
+    ok($I0, "Couldn't create default PMC directly")
 .end
 
 .sub test_inspect_vtable_function