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

add extra nested lambda test cases

Browse Source
This commit is contained in:
Stephen Chang 2016-05-03 13:54:40 -04:00
parent 7acbfefa71
commit 64d1bc9a48
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tapl/tests/mlish-tests.rkt
View File

@ -333,11 +333,26 @@
(λ (y) x))
(check-type tvf6 : (→/test X (→ Y X)))
;; nested lambdas
(check-type (λ ([x : X]) (λ ([y : X]) y)) : (→/test X (→ X X)))
(check-not-type (λ ([x : X]) (λ ([y : X]) y)) : (→/test {X} X (→/test {Y} Y Y)))
(check-type (λ ([x : X]) (λ ([y : Y]) y)) : (→/test {X} X (→/test {Y} Y Y)))
(check-not-type (λ ([x : X]) (λ ([y : Y]) x)) : (→/test X (→ X X)))
(check-type
((λ ([x : X]) (λ ([y : Y]) y)) 1)
: (→/test Y Y))
;; TODO?
;; - this fails if polymorphic functions are allowed as HO args
;; - do we want to allow this?
;; - must explicitly instantiate before passing fn
(check-type
((λ ([x : (→ X (→ Y Y))]) x)
(inst (λ ([x : X]) (inst (λ ([y : Y]) y) Int)) Int))
: (→ Int (→ Int Int)))
;; records and automatically-defined accessors and predicates
(define-type (RecoTest X Y)
(RT1 [x : X] [y : Y] [z : String])