equal
deleted
inserted
replaced
1 "{ Package: 'exept:regression' }" |
1 "{ Package: 'exept:regression' }" |
|
2 |
|
3 "{ NameSpace: RegressionTests }" |
2 |
4 |
3 Object subclass:#EnumerationTests |
5 Object subclass:#EnumerationTests |
4 instanceVariableNames:'' |
6 instanceVariableNames:'' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
16 |a| |
18 |a| |
17 |
19 |
18 a := (1 to:100) asArray. |
20 a := (1 to:100) asArray. |
19 |
21 |
20 10 timesRepeat:[ |
22 10 timesRepeat:[ |
21 a keysAndValuesDo:[:index :val | |
23 a keysAndValuesDo:[:index :val | |
22 ObjectMemory scavenge. |
24 ObjectMemory scavenge. |
23 index printString. |
25 index printString. |
24 ObjectMemory scavenge. |
26 ObjectMemory scavenge. |
25 val printString. |
27 val printString. |
26 ] |
28 ] |
27 ] |
29 ] |
28 |
30 |
29 " |
31 " |
30 self testArrayKeysAndValuesDo |
32 self testArrayKeysAndValuesDo |
31 " |
33 " |