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

Redirecting stderr to a temporary file

Browse Source 
Avoid using (current-error-port) since it may not
be a file stream port.
This commit is contained in:
shhyou 2020-12-19 11:03:42 -06:00 committed by shuhung
parent 4d0aa443b1
commit b71845512c
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/racket-test-core/tests/racket/subprocess.rktl
View File

@ -634,9 +634,9 @@
(when (eq? 'windows (system-type)) (when (eq? 'windows (system-type))
(define (try-arg cmdline-str result-str) (define (try-arg cmdline-str result-str)
(let () (let ([f (open-output-file tmpfile #:exists 'truncate/replace)])
(define-values (sp i o no-e) (define-values (sp i o no-e)
(subprocess #f #f (current-error-port) self 'exact (subprocess #f #f f self 'exact
(string-append (regexp-replace* #rx" " (path->string self) "\" \"") (string-append (regexp-replace* #rx" " (path->string self) "\" \"")
" -l racket/base" " -l racket/base"
" -e \"(write (vector-ref (current-command-line-arguments) 0))\"" " -e \"(write (vector-ref (current-command-line-arguments) 0))\""
@ -644,17 +644,19 @@
(close-output-port o) (close-output-port o)
(test result-str read i) (test result-str read i)
(subprocess-wait sp) (subprocess-wait sp)
(close-output-port f)
(close-input-port i)) (close-input-port i))
;; Check encoding by `subprocess`, too ;; Check encoding by `subprocess`, too
(let () (let ([f (open-output-file tmpfile #:exists 'truncate/replace)])
(define-values (sp i o no-e) (define-values (sp i o no-e)
(subprocess #f #f (current-error-port) self (subprocess #f #f f self
"-l" "racket/base" "-l" "racket/base"
"-e" "(write (vector-ref (current-command-line-arguments) 0))" "-e" "(write (vector-ref (current-command-line-arguments) 0))"
result-str)) result-str))
(close-output-port o) (close-output-port o)
(test result-str read i) (test result-str read i)
(subprocess-wait sp) (subprocess-wait sp)
(close-output-port f)
(close-input-port i))) (close-input-port i)))
(try-arg "x" "x") (try-arg "x" "x")