# HG changeset patch # User sr # Date 1505728250 -7200 # Node ID 48849326905a8ea1970e5f0ff64f25fadc1fb785 # Parent 0c5fa360fd46bddadd598d9d2f7abc593a7a7957 #BUGFIX by sr class: RegressionTests::OperationInQueueTests changed: #test incremented the time range... because the test did fail sometime, may due to tide timinings diff -r 0c5fa360fd46 -r 48849326905a RegressionTests__OperationInQueueTests.st --- a/RegressionTests__OperationInQueueTests.st Fri Sep 15 13:24:12 2017 +0200 +++ b/RegressionTests__OperationInQueueTests.st Mon Sep 18 11:50:50 2017 +0200 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + "{ Package: 'stx:goodies/regression' }" "{ NameSpace: RegressionTests }" @@ -51,40 +53,40 @@ self assert:(opQ size == 0). p0 := [ - opQ scheduleOperation:[ Delay waitForSeconds:1.]. + opQ scheduleOperation:[ Delay waitForSeconds:3.]. ] fork. p1 := [ - rslt1 := opQ scheduleOperation:(val1 := '1'). + rslt1 := opQ scheduleOperation:(val1 := '1'). ] fork. p2 := [ - rslt2 := opQ scheduleOperation:(val2 := '2'). + rslt2 := opQ scheduleOperation:(val2 := '2'). ] fork. p3 := [ - rslt3 := opQ scheduleOperation:(val3 := '3'). + rslt3 := opQ scheduleOperation:(val3 := '3'). ] fork. - Delay waitForSeconds:0.2. + Delay waitForSeconds:0.5. self assert:((sz := opQ size) == 3). p1b := [ - rslt1b := opQ scheduleOperation:(val1b := '1'). + rslt1b := opQ scheduleOperation:(val1b := '1'). ] fork. p2b := [ - rslt2b := opQ scheduleOperation:(val2b := '2'). + rslt2b := opQ scheduleOperation:(val2b := '2'). ] fork. p3b := [ - rslt3b := opQ scheduleOperation:(val3b := '3'). + rslt3b := opQ scheduleOperation:(val3b := '3'). ] fork. - Delay waitForSeconds:0.1. + Delay waitForSeconds:0.5. self assert:(opQ size == 3). - Delay waitForSeconds:2. + Delay waitForSeconds:3. self assert:((sz := opQ size) == 0). self assert:(val1 == rslt1). @@ -103,3 +105,4 @@ version ^ '$Header$' ! ! +