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

add multiple-values test for replace-evt

Browse Source
This commit is contained in:
Matthew Flatt 2014-07-15 15:50:26 +01:00
parent 27ebbec5f2
commit 9cc15cb49d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-pkgs/racket-test/tests/racket/sync.rktl
View File

@ -626,6 +626,14 @@
(test always-evt sync always-evt (replace-evt never-evt (lambda () 10))) (test always-evt sync always-evt (replace-evt never-evt (lambda () 10)))
(err/rt-test (sync (replace-evt always-evt (lambda () 10)))) (err/rt-test (sync (replace-evt always-evt (lambda () 10))))
(test 17 sync (replace-evt (wrap-evt always-evt
(lambda (_)
(values 3 14)))
(lambda (a b)
(wrap-evt always-evt
(lambda (_)
(+ a b))))))
;; ---------------------------------------- ;; ----------------------------------------
;; Structures as waitables ;; Structures as waitables