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

..

Browse Source 
original commit: 6c528325b02c3f03ad7b2968043d18f4e5734043
This commit is contained in:
Robby Findler 2002-08-18 20:11:22 +00:00
parent 8042a25649
commit f3c316ab57
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,7 @@
(define (test/spec-passed name expression) (define (test/spec-passed name expression)
(test 'passed (test 'passed
eval eval
`(begin ,expression 'passed))) `(let () ,expression 'passed)))
;; test/spec-failed : symbol sexp string -> void ;; test/spec-failed : symbol sexp string -> void
;; tests a failing specification with blame assigned to `blame' ;; tests a failing specification with blame assigned to `blame'
@ -221,13 +221,15 @@
(test/spec-passed (test/spec-passed
'contract-arrow-star-d2 'contract-arrow-star-d2
'((contract (->d* (integer?) (lambda (arg) '(let-values ([(a b)
(values (lambda (res) (= arg res)) ((contract (->d* (integer?) (lambda (arg)
(lambda (res) (= arg res))))) (values (lambda (res) (= arg res))
(lambda (x) (values x x)) (lambda (res) (= arg res)))))
'pos (lambda (x) (values x x))
'neg) 'pos
1)) 'neg)
1)])
1))
(test/spec-failed (test/spec-failed
'contract-arrow-star-d3 'contract-arrow-star-d3