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

adjust test to avoid port leaks

Browse Source
This commit is contained in:
Matthew Flatt 2020-05-24 07:38:56 -06:00
parent 9d8e048e04
commit 462a4f5c37
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -258,7 +258,7 @@
(test 'done-error (list-ref p 4) 'status)
(let ([p (open-input-string (get-output-string f2))])
(test (expt 10 50000) read p)
(test #t '1e50001 (equal? (expt 10 50000) (read p)))
(test "" read-line p)
(let ([p (if (eq? f3 'stdout)
p
@ -471,7 +471,10 @@
(test post-shutdown? running? sub-pid)
(when post-shutdown?
(parameterize ([current-input-port (open-input-string "")])
(system (format "kill ~a" sub-pid)))))))])
(system (format "kill ~a" sub-pid))))
(close-input-port (car l))
(close-output-port (cadr l))
(close-input-port (cadddr l)))))])
(try #t)
(try #f))