Author: chromatic
Date: Sun Sep 30 22:01:51 2007
New Revision: 21707
Modified:
branches/pdd15oo/t/pdd15oo/gc.t
Log:
[t] Fixed GC tests for PDD 15. DOD seems to be aggressive enough without
expicitly marking recycled PMCs for early collection, and null-byte attribute
separators are deprecated.
Two more tests pass.
Modified: branches/pdd15oo/t/pdd15oo/gc.t
==============================================================================
--- branches/pdd15oo/t/pdd15oo/gc.t (original)
+++ branches/pdd15oo/t/pdd15oo/gc.t Sun Sep 30 22:01:51 2007
@@ -55,8 +55,7 @@
pasm_output_is( <<'CODE', '10', "sweep 0, with object that need
destroy/destroy" );
interpinfo I1, 2 # How many DOD runs have we done already?
new P0, 'Undef'
- needs_destroy P0
- new P0, 'Undef' # kill object
+ new P0, 'Undef' # kill object
sweep 0
interpinfo I2, 2 # Should be one more now
sub I3, I2, I1
@@ -570,11 +569,11 @@
$P0 = new 'String'
$S0 = "ok" . " 3\n"
$P0 = $S0
- setattribute s, "X\0o3", $P0
+ setattribute s, "o3", $P0
$P0 = new 'String'
$S0 = "ok" . " 4\n"
$P0 = $S0
- setattribute s, "X\0o4", $P0
+ setattribute s, "o4", $P0
null $P0
null $S0
null cl
@@ -590,9 +589,9 @@
t = "ok 2\n"
print s
print t
- $P0 = getattribute s, "X\0o3"
+ $P0 = getattribute s, "o3"
print $P0
- $P0 = getattribute s, "X\0o4"
+ $P0 = getattribute s, "o4"
print $P0
.end
CODE
