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

add existential tests demonstrating hidden type

Browse Source
This commit is contained in:
Stephen Chang 2015-10-08 13:22:26 -04:00
parent 33996e71ac
commit dad2c26c49
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tapl/tests/exist-tests.rkt
View File

@ -76,6 +76,14 @@
(∃ (Counter) (× [new : Counter]
[get : (→ Counter Int)]
[inc : (→ Counter Counter)])))
(typecheck-fail
(open ([(Counter counter) <= counterADT])
(+ (proj counter new) 1))
#:with-msg "Arguments to function \\+ have wrong type")
(typecheck-fail
(open ([(Counter counter) <= counterADT])
((λ ([x : Int]) x) (proj counter new)))
#:with-msg "Arguments to function.+have wrong type")
(check-type
(open ([(Counter counter) <= counterADT])
((proj counter get) ((proj counter inc) (proj counter new))))