15 lines
330 B
Racket
15 lines
330 B
Racket
#lang s-exp "../../lang/wescheme.rkt"
|
|
|
|
(require "../../jsworld/jsworld.rkt")
|
|
|
|
|
|
(printf "js-big-bang-timer.rkt\n")
|
|
(printf "number should be counting up to ten\n")
|
|
(check-expect (big-bang 1
|
|
(on-tick (lambda (w)
|
|
(printf "~s~n" w)
|
|
(add1 w))
|
|
1/4)
|
|
(stop-when (lambda (w) (= w 10))))
|
|
10)
|