suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make sure these tests shut down after a short time

Browse Source
This commit is contained in:
Matthias Felleisen 2014-05-04 18:12:54 -04:00
parent d727355d9c
commit 19e068f1c6
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-receive.rkt
View File

@ -27,7 +27,10 @@
(sending-world rate limit) (sending-world rate limit)
(receiving-world 10) (receiving-world 10)
;; a universe that channels all messages from one world to another ;; a universe that channels all messages from one world to another
(universe '() (on-new accept-another-world) (on-msg forward-message))))) (universe '()
(on-tick (lambda (s) (make-bundle s '() '())) 1 10)
(on-new accept-another-world)
(on-msg forward-message)))))
;; World1 = Number ;; World1 = Number

2
pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-restart.rkt
View File

@ -6,7 +6,7 @@
(define (u) (define (u)
(universe 0 (universe 0
(on-new (lambda (u w) (make-bundle (+ u 1) '() '()))) (on-new (lambda (u w) (make-bundle (+ u 1) '() '())))
(on-tick (lambda (w) (make-bundle w '() '())) 1 5) (on-tick (lambda (w) (make-bundle w '() '())) 1 3)
(on-msg (lambda (u w m) (make-bundle (- u 1) '() (list w)))) (on-msg (lambda (u w m) (make-bundle (- u 1) '() (list w))))
(state #t))) (state #t)))