Fix for DrDr-style testing

Author: sorawee

typed/debug/test/typed-racket.rkt

@@ -7,5 +7,9 @@
 
   (define x 5)
 
-  (check-equal? (ann (report x) : Positive-Byte) 5)
-  )
+  (define p (open-output-string))
+
+  (parameterize ([current-error-port p])
+    (check-equal? (ann (report x) : Positive-Byte) 5))
+
+  (check-equal? (get-output-string p) "x = 5\n"))

typed/debug/test/typed-with-reader.rkt

@@ -1,6 +1,11 @@
 #lang debug typed/racket
 (require typed/debug/report)
 
-(define x 2)
-(define (f) #R x #R (+ x 4))
-#R (f)
+(module+ test
+  (require typed/rackunit)
+  (define p (open-output-string))
+  (parameterize ([current-error-port p])
+    (define x 2)
+    (define (f) #R x #R (+ x 4))
+    #R (f))
+  (check-equal? (get-output-string p) "x = 2\n(+ x 4) = 6\n(f) = 6\n"))