RegressionTests__DelayTest.st
author Claus Gittinger <cg@exept.de>
Mon, 07 Feb 2000 13:13:27 +0100
changeset 55 25eec262afe8
child 96 d3bad7e5e094
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
55
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
|n|
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
[
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
    n := 0.
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
    [true] whileTrue:[
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
       Delay waitForSeconds:1.
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
       Transcript showCR:n.
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
       n := n + 1.
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
    ]
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
] forkAt:9.
25eec262afe8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11