suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

raco exe: suppress expected stderr output

Browse Source 
Merge to v6.0
This commit is contained in:
Matthew Flatt 2013-11-30 08:07:32 -07:00
parent 9667e16a2a
commit fd2da02029
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/compiler-pkgs/compiler-test/tests/compiler/embed/test.rkt
View File

@ -1,8 +1,9 @@
#lang racket/base #lang racket/base
(require compiler/embed (require compiler/embed
mzlib/file racket/file
mzlib/process racket/system
racket/port
launcher launcher
compiler/distribute) compiler/distribute)
@ -418,7 +419,8 @@
(path->string (build-path (collection-path "tests" "compiler" "embed") prog))) (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 (try-exe (mk-dest mred?) "This is 6\n#t\n" mred? void "cts") ; <- cts copied to distribution
(delete-directory/files "cts") (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-me6b.rkt" "racket/fixnum.rkt" #t)
(check-collection-path "embed-me6.rkt" "mzlib/etc.rkt" #f) (check-collection-path "embed-me6.rkt" "mzlib/etc.rkt" #f)