Most typecheck tests now pass.
Add two new success tests. svn: r9577 original commit: 567e438f1d77d31aae4e25ea250da644638fb5de
This commit is contained in:
parent
86659a3ad3
commit
09dbb124b9
6
collects/tests/typed-scheme/succeed/map1.ss
Normal file
6
collects/tests/typed-scheme/succeed/map1.ss
Normal file
|
@ -0,0 +1,6 @@
|
|||
#lang typed-scheme
|
||||
|
||||
(: f ((U String Number) -> Void))
|
||||
(define (f x) (void))
|
||||
|
||||
(map f (list 1 2 3))
|
4
collects/tests/typed-scheme/succeed/map2.ss
Normal file
4
collects/tests/typed-scheme/succeed/map2.ss
Normal file
|
@ -0,0 +1,4 @@
|
|||
#lang typed-scheme
|
||||
|
||||
(map add1 #{(list 1 2 3) :: (Listof Integer)})
|
||||
(map add1 #{(list 1 2 3) :: (Listof Number)})
|
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue
Block a user