[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