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

.

Browse Source 
original commit: 40054e84125e6a57fbd8d49eb43abb606841a911
This commit is contained in:
Matthew Flatt 2004-10-16 14:34:08 +00:00
parent bd5e284145
commit 9d4deab7b5
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/tests/mzscheme/embed.ss
View File

@ -25,10 +25,22 @@
(define (try-exe exe expect) (define (try-exe exe expect)
(let ([out (open-output-bytes)] (let ([out (open-output-bytes)]
[in (open-input-bytes #"")]) [in (open-input-bytes #"")]
[plthome (getenv "PLTHOME")]
[collects (getenv "PLTCOLLECTS")])
;; Try to hide usual collections:
(when plthome
(putenv "PLTHOME" (path->string (find-system-path 'temp-dir))))
(when collects
(putenv "PLTCOLLECTS" (path->string (find-system-path 'temp-dir))))
;; Execute:
(parameterize ([current-output-port out] (parameterize ([current-output-port out]
[current-input-port in]) [current-input-port in])
(system* exe)) (system* exe))
(when plthome
(putenv "PLTHOME" plthome))
(when collects
(putenv "PLTCOLLECTS" ""))
(test expect get-output-string out))) (test expect get-output-string out)))
(define (mz-tests mred?) (define (mz-tests mred?)