--- a/RegressionTests__EnumerationTests.st Sat Jun 21 14:12:33 2003 +0200
+++ b/RegressionTests__EnumerationTests.st Fri Sep 26 16:12:26 2003 +0200
@@ -2,7 +2,7 @@
"{ NameSpace: RegressionTests }"
-Object subclass:#EnumerationTests
+TestCase subclass:#EnumerationTests
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -33,6 +33,29 @@
"
! !
+!EnumerationTests methodsFor:'tests'!
+
+testArrayKeysAndValuesDo
+ "test GC while enumerating an array"
+
+ |a|
+
+ a := (1 to:100) asArray.
+
+ 10 timesRepeat:[
+ a keysAndValuesDo:[:index :val |
+ ObjectMemory scavenge.
+ index printString.
+ ObjectMemory scavenge.
+ val printString.
+ ]
+ ]
+
+ "
+ self testArrayKeysAndValuesDo
+ "
+! !
+
!EnumerationTests class methodsFor:'documentation'!
version