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

Add test cases for fixed PRs.

Browse Source 
Closes PR 13191.
Closes PR 13290.
This commit is contained in:
Eric Dobson 2014-03-25 21:35:19 -07:00
parent 917fa3aeb7
commit 41ea8f3358
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/contract-tests.rkt
View File

@ -81,6 +81,7 @@
(t (-mu x (-Syntax x))) (t (-mu x (-Syntax x)))
(t (-> (-> Univ -Bottom : -bot-filter) -Bottom : -bot-filter)) (t (-> (-> Univ -Bottom : -bot-filter) -Bottom : -bot-filter))
(t (-poly (A B) (-> A B (Un A B))))
(t/fail ((-poly (a) (-vec a)) . -> . -Symbol) (t/fail ((-poly (a) (-vec a)) . -> . -Symbol)

12
pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/typecheck-tests.rkt
View File

@ -2667,6 +2667,18 @@
(number? x)) (number? x))
-Boolean] -Boolean]
[tc-e/t
(let ()
(: f (Number -> Number))
(define (f x)
(cond
((zero? x) x)
(else (add1 (f (sub1 x))))))
(define y (f 7))
4)
-PosByte]
) )
(test-suite (test-suite
"tc-literal tests" "tc-literal tests"