"{ Package: 'exept:regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#DelayTest
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression'
!
!DelayTest class methodsFor:'others'!
version_CVS
^ '$Header$'
! !
!DelayTest class methodsFor:'queries'!
coveredClasses
^ Array with:Delay
"Created: / 05-07-2011 / 09:51:28 / cg"
! !
!DelayTest methodsFor:'tests'!
test1
|n|
[
n := 0.
[n < 10] whileTrue:[
Delay waitForSeconds:0.1.
Transcript showCR:n.
n := n + 1.
]
] forkAt:(Processor activePriority - 1).
self assert:(n == nil).
Delay waitForSeconds:0.1.
self assert:(n == 0).
Delay waitForSeconds:1.5.
self assert:(n == 10).
"
self basicNew test1
"
!
test2
|n|
[
n := 0.
[n < 10] whileTrue:[
Delay waitForSeconds:0.1.
Transcript showCR:n.
n := n + 1.
]
] forkAt:(Processor activePriority + 1).
self assert:(n == 0).
Delay waitForSeconds:1.1.
self assert:(n == 10).
"
self basicNew test2
"
! !
!DelayTest class methodsFor:'documentation'!
version
^ '$Header$'
! !