#BUGFIX by sr
authorsr
Mon, 18 Sep 2017 11:50:50 +0200
changeset 1701 48849326905a
parent 1700 0c5fa360fd46
child 1702 fa257457c18a
#BUGFIX by sr class: RegressionTests::OperationInQueueTests changed: #test incremented the time range... because the test did fail sometime, may due to tide timinings
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$'
 ! !
+