RegressionTests__DelayTest.st
branchjv
changeset 1500 d406a10b2965
parent 1499 26a16a04219b
parent 1447 2351db93aa5b
child 1567 e17701a073f9
--- 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.