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

..

Browse Source 
original commit: 938dae0cd7988d2daaebeca402ec7e8e2feb5fb1
This commit is contained in:
Robby Findler 2002-09-03 17:19:51 +00:00
parent 7ea4200021
commit 2d0af177ea
1 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
collects/tests/mzscheme/contracts.ss
View File

@ -425,6 +425,38 @@
'union7 'union7
'((contract (union false? (-> integer? integer?)) (lambda (x) x) 'pos 'neg) 1)) '((contract (union false? (-> integer? integer?)) (lambda (x) x) 'pos 'neg) 1))
) (test/spec-passed
'define/contract1
'(let ()
(define/contract i integer? 1)
i))
(test/spec-failed
'define/contract2
'(let ()
(define/contract i integer? #t)
i)
"i")
(test/spec-failed
'define/contract3
'(let ()
(define/contract i (-> integer? integer?) (lambda (x) #t))
(i 1))
"i")
(test/spec-failed
'define/contract4
'(let ()
(define/contract i (-> integer? integer?) (lambda (x) 1))
(i #f))
"<<unknown>>")
(test/spec-failed
'define/contract5
'(let ()
(define/contract i (-> integer? integer?) (lambda (x) (i #t)))
(i 1))
"<<unknown>>"))
(report-errs) (report-errs)