Prevent shelly tests from printing to STDERR (but shelly will if there's a problem)

2013-11-28 09:58:40 -07:00 · 2013-11-28 09:58:40 -07:00 · fca73f8314
commit fca73f8314
parent ae395c20fd
1 changed files with 9 additions and 2 deletions
--- a/pkgs/racket-pkgs/racket-test/tests/pkg/shelly.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/pkg/shelly.rkt
@ -78,8 +78,15 @@
                    (thread
                     (λ ()
                       (with-handlers ([exn:input-port-closed? void])
-                         (copy-port stderr error-port
-                                    (current-error-port))))))
+                         (define cop (current-output-port))
+                         (let loop ()
+                           (define l (read-bytes-line stderr))
+                           (unless (eof-object? l)
+                             (displayln l error-port)
+                             (displayln (format "STDERR: ~a" l) cop)
+                             (flush-output error-port)
+                             (flush-output cop)
+                             (loop)))))))
                  (to-proc 'wait)
                  (define cmd-status (to-proc 'exit-code))
                  (when stdout (close-input-port stdout))