15 lines
369 B
Racket
15 lines
369 B
Racket
#lang racket/load
|
|
|
|
(require (only-in typed/racket with-type)
|
|
syntax/macro-testing)
|
|
|
|
;; Test that the typed-context? flag is properly reset
|
|
|
|
(with-handlers ([exn:fail:syntax? void])
|
|
(convert-compile-time-error
|
|
(with-type [] (+ 1 "foo"))))
|
|
|
|
;; this should succeed instead of an error due to the typed-context?
|
|
;; flag being set to #t
|
|
(with-type [] (+ 1 3))
|