"{ Package: 'exept:regression' }"
 
"{ NameSpace: RegressionTests }"
 
Object subclass:#DelayTest
        instanceVariableNames:''
        classVariableNames:''
        poolDictionaries:''
        category:'Tests-Regression'
!
 
 
!DelayTest class methodsFor:'tests'!
 
test1
    |n|

    [
        n := 0.
        [n < 10] whileTrue:[
           Delay waitForSeconds:1.
           Transcript showCR:n.
           n := n + 1.
        ]
    ] forkAt:9.
! !