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

[NotFound at svn.parrot.org]

Author: NotFound
Date: Wed Feb 24 22:05:27 2010
New Revision: 44465
URL: https://trac.parrot.org/parrot/changeset/44465

Log:
update oplib test, no more a singleton

Modified:
   trunk/t/pmc/oplib.t

Modified: trunk/t/pmc/oplib.t
==============================================================================
--- trunk/t/pmc/oplib.t	Wed Feb 24 21:01:40 2010	(r44464)
+++ trunk/t/pmc/oplib.t	Wed Feb 24 22:05:27 2010	(r44465)
@@ -14,22 +14,14 @@
 
 .sub main :main
     .include 'test_more.pir'
-    plan(2)
-    get_singleton()
+    plan(1)
+    new_oplib()
 .end
 
-.sub get_singleton
+.sub new_oplib
     $P0 = new ['OpLib']
     $I0 = isnull $P0
-    is($I0, 0)
-
-    $P1 = new ['OpLib']
-    eq_addr $P0, $P1, ok
-    ok(0, "all OpLibs aren't identical")
-    goto end
-ok:
-    ok(1, "all OpLibs are identical")
-end:
+    nok($I0, "new OpLib")
 .end
 
 # Local Variables: