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

Add test for non-unit check.

Browse Source 
svn: r13526
This commit is contained in:
Stevie Strickland 2009-02-12 00:49:56 +00:00
parent 12bbf258df
commit 12110acfe3
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/units/test-unit-contracts.ss
View File

@ -593,3 +593,9 @@
(unit (import sig1) (export) (+ x 1))) (unit (import sig1) (export) (+ x 1)))
bad-import@)) bad-import@))
(test-runtime-error exn:fail:contract? "value is not a unit"
(let ()
(define/contract not-a-unit
(unit/c (import) (export))
3)
not-a-unit))