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

more test errors

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-10 16:22:41 -04:00
parent 08d0df5256
commit fe10457f4e
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/tests/typed-scheme/unit-tests/typecheck-tests.rkt
View File

@ -1,4 +1,4 @@
#lang scheme/base
#lang racket/base
(require "test-utils.ss"
(for-syntax scheme/base)
@ -215,8 +215,8 @@
-Pos]
[tc-e/t (lambda: ([x : Number] . [y : Number *]) (car y)) (->* (list N) N N)]
[tc-e ((lambda: ([x : Number] . [y : Number *]) (car y)) 3) N]
[tc-e ((lambda: ([x : Number] . [y : Number *]) (car y)) 3 4 5) N]
[tc-e ((lambda: ([x : Number] . [y : Number *]) (car y)) 3 4) N]
[tc-e/t ((lambda: ([x : Number] . [y : Number *]) (car y)) 3 4 5) N]
[tc-e/t ((lambda: ([x : Number] . [y : Number *]) (car y)) 3 4) N]
[tc-e (apply (lambda: ([x : Number] . [y : Number *]) (car y)) 3 '(4)) N]
[tc-e (apply (lambda: ([x : Number] . [y : Number *]) (car y)) 3 '(4 6 7)) N]
[tc-e (apply (lambda: ([x : Number] . [y : Number *]) (car y)) 3 '()) N]
@ -793,7 +793,7 @@
(tc-e (or (string->number "7") 7)
#:ret (ret -Number -true-filter))
[tc-e (let ([x 1]) (if x x (add1 x)))
#:ret (ret -Pos -true-filter)]
#:ret (ret -Pos (-FS -top -bot))]
[tc-e (let: ([x : (U (Vectorof Number) String) (vector 1 2 3)])
(if (vector? x) (vector-ref x 0) (string-length x)))
-Number]