adding test case

2015-08-17 11:42:17 -04:00 · 2015-08-17 11:42:17 -04:00 · bf0c4812cd
commit bf0c4812cd
parent a0118d6ccf
1 changed files with 12 additions and 0 deletions
--- a/rackunit-test/tests/rackunit/pr/5.rkt
+++ b/rackunit-test/tests/rackunit/pr/5.rkt
@ -0,0 +1,12 @@
+#lang racket/base
+(module+ test
+  (require rackunit
+           racket/port
+           rackunit/text-ui)
+
+  (define t (open-output-string))
+  (parameterize ([current-error-port t])
+    (run-tests
+     (test-suite "x"
+                 (check-not-false (displayln 0)))))
+  (check-equal? (get-output-string t) ""))