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

Add TR tests for replace-evt

Browse Source 
original commit: a365f75ebb5f4ea576ab45321b90443c84e306b0
This commit is contained in:
Asumu Takikawa 2014-07-16 14:46:53 -04:00
parent 8b1df5050d
commit 46ac4b22bd
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/typecheck-tests.rkt
View File

@ -1722,6 +1722,10 @@
(make-Evt -String))
(tc-e (guard-evt (inst make-channel String))
(make-Evt -String))
(tc-e (sync (replace-evt always-evt (lambda (x) 3)))
(-mu x (make-Evt x)))
(tc-e (sync (replace-evt always-evt (lambda (x) (alarm-evt (+ (current-inexact-milliseconds) 1000)))))
(-mu x (make-Evt x)))
(tc-err (let: ([a : (U (Evtof Any) String) always-evt])
(if (handle-evt? a) a (string->symbol a)))
#:ret (ret (t:Un -Symbol (make-Evt Univ))))