Add test for top-level mutated var fix.

2015-11-18 14:31:48 -05:00 · 2015-11-18 14:31:48 -05:00 · f9825cb250
commit f9825cb250
parent 9fc2c5b3c3
1 changed files with 11 additions and 0 deletions
--- a/typed-racket-test/unit-tests/interactive-tests.rkt
+++ b/typed-racket-test/unit-tests/interactive-tests.rkt
@ -116,6 +116,17 @@
    ;; PR 14380
    (test-form-not-exn (begin - (void)))

+    ;; bug that delayed 6.3
+    (test-form-exn #rx"Any"
+     (let ((x : Any 0))
+       (define (f) (set! x #t))
+       (when (number? x)
+         (add1 x))))
+
+    (test-form-not-exn
+     (let ((x 0))
+       (set! x 1)))
+
    ;; test message for undefined id
    (test-form-exn #rx"either undefined or missing a type annotation"
      (a-name-that-isnt-bound))