[svn:parrot] r36967 - trunk/t/oo

NotFound at svn.parrot.org NotFound at svn.parrot.org
Tue Feb 24 14:19:08 UTC 2009


Author: NotFound
Date: Tue Feb 24 14:19:07 2009
New Revision: 36967
URL: https://trac.parrot.org/parrot/changeset/36967

Log:
[t] DO oo/subclass.t 'set the value of a non-constant key PMC'

Modified:
   trunk/t/oo/subclass.t

Modified: trunk/t/oo/subclass.t
==============================================================================
--- trunk/t/oo/subclass.t	Tue Feb 24 13:38:53 2009	(r36966)
+++ trunk/t/oo/subclass.t	Tue Feb 24 14:19:07 2009	(r36967)
@@ -250,12 +250,15 @@
     $I3 = isa barbaz_class, "Class"
     ok ($I3, 'new class isa Class')
 
-    # How do you set the value of a non-constant key PMC?
-    # $P3 = new 'Key'
-    # $P2 = new $P3
-    todo (0, 'set the value of a non-constant key PMC')
+    .local pmc kbarbaz, kbaz
+    kbarbaz = new 'Key'
+    kbarbaz = 'Bar'
+    kbaz = new 'Key'
+    kbaz = 'Baz'
+    push kbarbaz, kbaz
+    ok (1, 'set the value of a non-constant key PMC')
 
-    barbaz_object = new barbaz_class #remove this when todo is accomplished
+    barbaz_object = new kbarbaz
 
     $S1 = typeof barbaz_object
     is ($S1, 'Bar;Baz', 'instance is typeof Bar;Baz')


More information about the parrot-commits mailing list