RegressionTests__WeakCollectionTest.st
changeset 1439 a51a503a55b8
parent 1302 8149bc9ff84f
child 1447 2351db93aa5b
child 1499 26a16a04219b
--- 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.