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

fix "subprocess.rktl" test to run in quiet mode

Browse Source
This commit is contained in:
Matthew Flatt 2017-10-12 17:45:04 -06:00
parent 402bf2173d
commit 0f425f2029
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -454,8 +454,8 @@
(try #f))
(define (try-add-to-group kill-second?)
(define-values (p1 o1 i1 e1) (subprocess (current-output-port) (current-input-port) (current-error-port) 'new "/bin/cat"))
(define-values (p2 o2 i2 e2) (subprocess (current-output-port) (current-input-port) (current-error-port) p1 "/bin/cat"))
(define-values (p1 o1 i1 e1) (subprocess #f #f #f 'new "/bin/cat"))
(define-values (p2 o2 i2 e2) (subprocess #f #f #f p1 "/bin/cat"))
(test 'running subprocess-status p1)
(test 'running subprocess-status p2)
@ -469,7 +469,14 @@
(test p1 sync p1)
(test p2 sync p2)
(test (subprocess-status p1) subprocess-status p2))
(test (subprocess-status p1) subprocess-status p2)
(close-input-port o1)
(close-input-port o2)
(close-input-port e1)
(close-input-port e2)
(close-output-port i1)
(close-output-port i2))
(try-add-to-group #f)
(try-add-to-group #t))