#BUGFIX by sr
class: RegressionTests::OperationInQueueTests
changed: #test
incremented the time range...
because the test did fail sometime, may due to tide timinings
--- 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$'
! !
+