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

more tests

Browse Source 
svn: r2501

original commit: dba28564ea9962e69b9e88a169456127378acfe6
This commit is contained in:
Robby Findler 2006-03-25 00:23:23 +00:00
parent 513f481f3c
commit e303804613
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/tests/mzscheme/contract-test.ss
View File

@ -238,6 +238,17 @@
(test/spec-passed (test/spec-passed
'contract-arrow-star11 'contract-arrow-star11
'(let-values ([(a b) ((contract (->* (integer?)
(listof integer?)
any)
(lambda (x . y) (values x x))
'pos
'neg)
2)])
1))
(test/pos-blame
'contract-arrow-star11b
'(let-values ([(a b) ((contract (->* (integer?) '(let-values ([(a b) ((contract (->* (integer?)
(listof integer?) (listof integer?)
any) any)
@ -3762,8 +3773,8 @@
(define (contract-inferred-name-test2b x) (values x x)) (define (contract-inferred-name-test2b x) (values x x))
(provide/contract (contract-inferred-name-test2b (-> number? (values number? number?)))) (provide/contract (contract-inferred-name-test2b (-> number? (values number? number?))))
(define (contract-inferred-name-test3 x) x) (define (contract-inferred-name-test3 x . y) x)
(provide/contract (contract-inferred-name-test3 (->* (number?) (number?)))) (provide/contract (contract-inferred-name-test3 (->* (number?) (listof number?) (number?))))
(define contract-inferred-name-test4 (define contract-inferred-name-test4
(case-lambda [(x) x] (case-lambda [(x) x]
@ -3805,8 +3816,8 @@
(test-name '(-> integer? integer?) (-> integer? integer?)) (test-name '(-> integer? integer?) (-> integer? integer?))
(test-name '(-> integer? any) (-> integer? any)) (test-name '(-> integer? any) (-> integer? any))
(test-name '(-> integer? (values boolean? char?)) (-> integer? (values boolean? char?))) (test-name '(-> integer? (values boolean? char?)) (-> integer? (values boolean? char?)))
(test-name '(->* (integer? boolean?) (char? any/c)) (->* (integer? boolean?) (char? any/c))) (test-name '(-> integer? boolean? (values char? any/c)) (->* (integer? boolean?) (char? any/c)))
(test-name '(->* (integer? boolean?) any) (->* (integer? boolean?) any)) (test-name '(-> integer? boolean? any) (->* (integer? boolean?) any))
(test-name '(->* (integer?) boolean? (char? any/c)) (->* (integer?) boolean? (char? any/c))) (test-name '(->* (integer?) boolean? (char? any/c)) (->* (integer?) boolean? (char? any/c)))
(test-name '(->* (integer? char?) boolean? any) (->* (integer? char?) boolean? any)) (test-name '(->* (integer? char?) boolean? any) (->* (integer? char?) boolean? any))
(test-name '(->d integer? boolean? ...) (->d integer? boolean? (lambda (x y) char?))) (test-name '(->d integer? boolean? ...) (->d integer? boolean? (lambda (x y) char?)))