--- a/RegressionTests__DelayTest.st Wed Oct 24 16:18:57 2012 +0200
+++ b/RegressionTests__DelayTest.st Wed Oct 24 18:19:11 2012 +0200
@@ -40,15 +40,15 @@
]
] forkAt:(Processor activePriority - 1).
- self assert:(n == nil).
+ self assert:(n == nil). "because the process has lower prio and should not run"
- Delay waitForSeconds:0.1.
+ Delay waitForSeconds:0.05.
- self assert:(n == 0).
+ self assert:(n == 0). "because I should have interrupted the process"
Delay waitForSeconds:1.5.
- self assert:(n == 10).
+ self assert:(n == 10). "because process should be complete now"
"
self basicNew test1