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

regression test for issue #33 (#493)

Browse Source 
closes #33
This commit is contained in:
Benjamin Greenman 2017-01-14 10:56:20 -05:00 committed by GitHub
parent 53d077c27d
commit ed2cf43a19
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
typed-racket-test/succeed/issue-33.rkt Normal file
View File

@ -0,0 +1,17 @@
#lang typed/racket/base
;; regression test for issue #33
;; https://github.com/racket/typed-racket/issues/33
;; In 2015, gave the error message:
;; Type Checker: type mismatch
;; expected: (U (List Symbol Any) (List String Symbol))
;; given: (List String Any)
;; in: (list "foo" (quote bold))
(: x (U (List Symbol Any)
(List String Symbol)))
(define x (list "foo" 'bold))
(when (and (string? (car x)) (symbol? (cadr x)))
(ann x (List String Symbol)))