Author: chromatic
Date: Sun Sep 30 22:14:41 2007
New Revision: 21708
Modified:
branches/pdd15oo/t/pdd15oo/freeze.t
branches/pdd15oo/t/pdd15oo/object-meths.t
branches/pdd15oo/t/pdd15oo/tail.t
Log:
[t] Made a few more tests pass by converting the deprecated null-byte object
attribute access to the keyed access form.
Modified: branches/pdd15oo/t/pdd15oo/freeze.t
==============================================================================
--- branches/pdd15oo/t/pdd15oo/freeze.t (original)
+++ branches/pdd15oo/t/pdd15oo/freeze.t Sun Sep 30 22:14:41 2007
@@ -463,10 +463,10 @@
print "ok 3\n"
new P6, 'String'
set P6, "ok 5\n"
- setattribute P5, "Foo\0.aa", P6
+ setattribute P5, [ "Foo"], ".aa", P6
new P6, 'String'
set P6, "ok 6\n"
- setattribute P5, "Foo\0.bb", P6
+ setattribute P5, [ "Foo" ], ".bb", P6
print "ok 4\n"
getattribute P7, P5, ".aa"
print P7
@@ -506,10 +506,10 @@
print "ok 3\n"
new P6, 'String'
set P6, "ok 5\n"
- setattribute P5, "Foo\0.aa", P6
+ setattribute P5, [ "Foo" ], ".aa", P6
new P6, 'String'
set P6, "ok 6\n"
- setattribute P5, "Foo\0.bb", P6
+ setattribute P5, [ "Foo" ], ".bb", P6
print "ok 4\n"
getattribute P7, P5, ".aa"
print P7
@@ -548,10 +548,10 @@
print "ok 3\n"
new P6, 'String'
set P6, "ok 5\n"
- setattribute P5, "Foo\0.aa", P6
+ setattribute P5, [ "Foo" ], ".aa", P6
new P6, 'String'
set P6, "ok 6\n"
- setattribute P5, "Foo\0.bb", P6
+ setattribute P5, [ "Foo" ], ".bb", P6
print "ok 4\n"
getattribute P7, P5, ".aa"
print P7
Modified: branches/pdd15oo/t/pdd15oo/object-meths.t
==============================================================================
--- branches/pdd15oo/t/pdd15oo/object-meths.t (original)
+++ branches/pdd15oo/t/pdd15oo/object-meths.t Sun Sep 30 22:14:41 2007
@@ -901,9 +901,9 @@
o = new "Foo"
n = new 'Integer'
n = 2000
- setattribute o, "Foo\0n", n
+ setattribute o, [ "Foo" ], "n", n
o.go()
- n = getattribute o, "Foo\0n"
+ n = getattribute o, [ "Foo" ], "n"
print n
print "\n"
.end
@@ -911,7 +911,7 @@
.namespace ["Foo"]
.sub go :method
.local pmc n
- n = getattribute self, "Foo\0n"
+ n = getattribute self, [ "Foo" ], "n"
dec n
unless n goto done
.return self."go"()
Modified: branches/pdd15oo/t/pdd15oo/tail.t
==============================================================================
--- branches/pdd15oo/t/pdd15oo/tail.t (original)
+++ branches/pdd15oo/t/pdd15oo/tail.t Sun Sep 30 22:14:41 2007
@@ -327,9 +327,9 @@
o = new "Foo"
n = new 'Integer'
n = 2000 # beyond recursion limit of 1000
- setattribute o, "Foo\0n", n
+ setattribute o, [ "Foo" ], "n", n
o."go"()
- n = getattribute o, "Foo\0n"
+ n = getattribute o, [ "Foo" ], "n"
print n
print "\n"
.end
@@ -337,7 +337,7 @@
.namespace ["Foo"]
.sub go :method
.local pmc n
- n = getattribute self, "Foo\0n"
+ n = getattribute self, [ "Foo" ], "n"
dec n
unless n goto done
.return self."go"()
