more fail/toplvl in tests

This commit is contained in:
Stephen Chang 2017-03-21 19:44:14 -04:00
parent bff10f9f03
commit a8f908ff19

View File

@ -156,9 +156,8 @@
(typecheck-fail (countdown "10") #:with-msg "expected Int, given String")
;; inconsistent define
(typecheck-fail (define (bad -> Int) (void))
#:with-msg "expected Int, given Unit"
#:ctx top-level)
(typecheck-fail/toplvl (define (bad -> Int) (void))
#:with-msg "expected Int, given Unit")
;; tests from stlc+lit-tests.rkt --------------------------
; most should pass, some failing may now pass due to added types/forms