RegressionTests__DelayTest.st
changeset 1447 2351db93aa5b
parent 696 bc607ac0acd5
child 1500 d406a10b2965
child 1789 c24ce973ecc2
--- a/RegressionTests__DelayTest.st	Wed Jun 29 13:00:17 2016 +0000
+++ b/RegressionTests__DelayTest.st	Wed Jun 29 15:55:29 2016 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'exept:regression' }"
+"{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
 
@@ -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.