--- a/RegressionTests__WeakCollectionTest.st Thu Jun 09 12:35:01 2016 +0200
+++ b/RegressionTests__WeakCollectionTest.st Wed Jun 22 12:00:31 2016 +0200
@@ -155,7 +155,8 @@
self assert: ( (ww at:k) ~~ v1 ).
self assert: ( (ww at:k) = v1 ).
- ObjectMemory scavenge.
+ "/ give background finalizer a chance to run.
+ 2 timesRepeat:[ ObjectMemory scavenge. Delay waitForSeconds:0.5 ].
"/ self assert: ( ww size = 0 ).
self assert: ( (ww at:k ifAbsent:nil) isNil ).
@@ -182,7 +183,7 @@
v2 := nil.
v := v copy.
- ObjectMemory scavenge.
+ 2 timesRepeat:[ ObjectMemory scavenge. Delay waitForSeconds:0.5 ].
v2 := self fetchValueAtKey:k from:ww ifAbsent:nil.
self assert: ( v2 isNil ).
v2 := nil.