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

repair test

Browse Source 
Fix test for 24aeea28c1 to work in "quiet" mode.
This commit is contained in:
Matthew Flatt 2018-12-09 14:14:07 -07:00
parent 140043fb65
commit 68394e7134
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-test-core/tests/racket/port.rktl
View File

@ -924,7 +924,7 @@
;; Check `file-position`, OS-level pipes, and peek ;; Check `file-position`, OS-level pipes, and peek
(when (and (memq (system-type) '(unix macosx)) (when (and (memq (system-type) '(unix macosx))
(file-exists? "/bin/cat")) (file-exists? "/bin/cat"))
(define-values (sp stdout-in stdin-out no-stderr) (subprocess #f #f (current-error-port) "/bin/cat")) (define-values (sp stdout-in stdin-out stderr-in) (subprocess #f #f #f "/bin/cat"))
(write-bytes #"abcd\n" stdin-out) (write-bytes #"abcd\n" stdin-out)
(close-output-port stdin-out) (close-output-port stdin-out)
(test 0 file-position stdout-in) (test 0 file-position stdout-in)
@ -933,6 +933,7 @@
(test #\a read-char stdout-in) (test #\a read-char stdout-in)
(test 1 file-position stdout-in) (test 1 file-position stdout-in)
(close-input-port stdout-in) (close-input-port stdout-in)
(close-input-port stderr-in)
(subprocess-wait sp)) (subprocess-wait sp))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;