--- a/RegressionTests__DelayTest.st Wed Jun 29 21:40:53 2016 +0100
+++ b/RegressionTests__DelayTest.st Thu Jun 30 09:02:08 2016 +0100
@@ -32,12 +32,12 @@
verbose := false.
[
- n := 0.
- [n < 10] whileTrue:[
- Delay waitForSeconds:0.1.
- verbose ifTrue:[ Transcript showCR:n ].
- n := n + 1.
- ]
+ n := 0.
+ [n < 10] whileTrue:[
+ Delay waitForSeconds:0.1.
+ verbose ifTrue:[ Transcript showCR:n ].
+ n := n + 1.
+ ]
] forkAt:(Processor activePriority - 1).
self assert:(n == nil). "because the process has lower prio and should not run"
@@ -63,11 +63,11 @@
verbose := false.
n := 0.
[
- [n < 10] whileTrue:[
- Delay waitForSeconds:0.1.
- verbose ifTrue:[ Transcript showCR:n ].
- n := n + 1.
- ]
+ [n < 10] whileTrue:[
+ Delay waitForSeconds:0.1.
+ verbose ifTrue:[ Transcript showCR:n ].
+ n := n + 1.
+ ]
] forkAt:(Processor activePriority + 1).
self assert:(n == 0) description:'thread with delays should not have started yet'.
@@ -88,10 +88,10 @@
|stillWaiting watchDogBite|
[
- watchDogBite := false.
- stillWaiting := true.
- Delay waitForSeconds:1000000.
- stillWaiting := false.
+ watchDogBite := false.
+ stillWaiting := true.
+ Delay waitForSeconds:1000000.
+ stillWaiting := false.
] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:1000.
self assert:stillWaiting.
@@ -111,15 +111,15 @@
longDelay := Delay forSeconds:1000000.
[
- Delay waitForSeconds:2.
- longDelay resume.
+ Delay waitForSeconds:2.
+ longDelay resume.
] fork.
waitTime := Time secondsToRun:[
- "never wait longer than 10 seconds"
- [
- longDelay wait.
- ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:10000.
+ "never wait longer than 10 seconds"
+ [
+ longDelay wait.
+ ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:10000.
].
self assert:watchDogBite ~~ true.
self assert:waitTime < 10.