From 9101bccd5b3438fdb734a4311f0ab825a48a5894 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 30 Nov 2013 08:07:32 -0700 Subject: [PATCH] raco exe: suppress expected stderr output Merge to v6.0 original commit: fd2da02029bd6a31b48ee9dfa2ff836b45fc1291 --- .../compiler-test/tests/compiler/embed/test.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt index a1e8945895..6588421ca8 100644 --- a/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt +++ b/pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt @@ -1,8 +1,9 @@ #lang racket/base (require compiler/embed - mzlib/file - mzlib/process + racket/file + racket/system + racket/port launcher compiler/distribute) @@ -418,7 +419,8 @@ (path->string (build-path (collection-path "tests" "compiler" "embed") prog))) (try-exe (mk-dest mred?) "This is 6\n#t\n" mred? void "cts") ; <- cts copied to distribution (delete-directory/files "cts") - (test #f system* (mk-dest mred?))) + (parameterize ([current-error-port (open-output-nowhere)]) + (test #f system* (mk-dest mred?)))) (check-collection-path "embed-me6b.rkt" "racket/fixnum.rkt" #t) (check-collection-path "embed-me6.rkt" "mzlib/etc.rkt" #f)