[svn:parrot] r48369 - branches/unshared_buffers/t/op
darbelo at svn.parrot.org
darbelo at svn.parrot.org
Mon Aug 9 21:08:19 UTC 2010
Author: darbelo
Date: Mon Aug 9 21:08:18 2010
New Revision: 48369
URL: https://trac.parrot.org/parrot/changeset/48369
Log:
Remove test for a feature that no longer exists.
Modified:
branches/unshared_buffers/t/op/string_mem.t
Modified: branches/unshared_buffers/t/op/string_mem.t
==============================================================================
--- branches/unshared_buffers/t/op/string_mem.t Mon Aug 9 21:08:04 2010 (r48368)
+++ branches/unshared_buffers/t/op/string_mem.t Mon Aug 9 21:08:18 2010 (r48369)
@@ -32,7 +32,7 @@
.include 'stringinfo.pasm'
.include 'interpinfo.pasm'
-.const int TESTS = 7
+.const int TESTS = 6
.sub _main :main
.include 'test_more.pir'
@@ -54,21 +54,15 @@
$S1 = "Hello, world"
$S0 = $S1
- $I0 = stringinfo $S0, .STRINGINFO_STRSTART
- $I1 = stringinfo $S1, .STRINGINFO_STRSTART
+ $I0 = stringinfo $S0, .STRINGINFO_BUFSTART
+ $I1 = stringinfo $S1, .STRINGINFO_BUFSTART
is($I0, $I1, "stringinfo - test STRSTART can see COW in action")
$I0 = stringinfo $S0, .STRINGINFO_HEADER
$I1 = stringinfo $S1, .STRINGINFO_HEADER
is($I0, $I1, "stringinfo - STRHEADER on full COW strings keeps same value")
-
$S2 = substr $S0, 7
is($S2, "world", "sanity check")
- $I4 = stringinfo $S0, .STRINGINFO_STRSTART
- $I2 = stringinfo $S2, .STRINGINFO_STRSTART
- $I3 = $I2 - $I4
- is($I3, 7, "stringinfo - STRSTART can see COW in action")
-
$I2 = stringinfo $S2, .STRINGINFO_HEADER
isnt($I0, $I2, "stringinfo - STRHEADER on different COW strings same value")
.end
@@ -99,7 +93,7 @@
null $S8
null $S9
- init = stringinfo $S6, .STRINGINFO_STRSTART
+ init = stringinfo $S6, .STRINGINFO_BUFSTART
$I0 = interpinfo .INTERPINFO_GC_COLLECT_RUNS
loop1:
@@ -107,7 +101,7 @@
$I1 = interpinfo .INTERPINFO_GC_COLLECT_RUNS
eq $I0, $I1, loop1
- before = stringinfo $S6, .STRINGINFO_STRSTART
+ before = stringinfo $S6, .STRINGINFO_BUFSTART
unpin $S6
$I0 = interpinfo .INTERPINFO_GC_COLLECT_RUNS
@@ -116,7 +110,7 @@
$I1 = interpinfo .INTERPINFO_GC_COLLECT_RUNS
eq $I0, $I1, loop1
- after = stringinfo $S6, .STRINGINFO_STRSTART
+ after = stringinfo $S6, .STRINGINFO_BUFSTART
is( init, before, "pin/collect didn't change memory address" )
$I0 = cmp after, before
@@ -135,12 +129,6 @@
ok( $I0, "location of string changed by unpin/collect" )
.end
-#.constant STRINGINFO_STRSTART 2
-#.constant STRINGINFO_BUFLEN 3
-#.constant STRINGINFO_FLAGS 4
-#.constant STRINGINFO_BUFUSED 5
-#.constant STRINGINFO_STRLEN 6
-
# Local Variables:
# mode: pir
# fill-column: 100
More information about the parrot-commits
mailing list