mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

popen.test: add shell on mingw

Browse source
This commit is contained in:
Michael Gran 2025-03-30 20:01:25 -07:00
parent 76efca9929
commit 196f6fca44
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test-suite/tests/popen.test
View file

@ -225,7 +225,6 @@ exec 2>~a; read REPLY"
(close-pipe port)
result))))))
(with-test-prefix "open-pipe*"
(pass-if-equal "OPEN_BOTH"
@ -281,11 +280,15 @@ exec 2>~a; read REPLY"
(list (read-string from)
(status:exit-val (cdr (waitpid pid))))))
(pass-if-equal "piped-process"
42
(status:exit-val
(cdr (waitpid ((@@ (ice-9 popen) piped-process)
"./meta/guile" '("-c" "(exit 42)"))))))
(pass-if-equal "piped-process"
42
(status:exit-val
(cdr (waitpid
(if (not mingw?)
((@@ (ice-9 popen) piped-process) "./meta/guile" '("-c" "(exit 42)"))
;; Calling piped-process directly means that, on MinGW,
;; /bin/sh is bypassed.
((@@ (ice-9 popen) piped-process) "sh" '("./meta/guile" "-c" "(exit 42)")))))))
(pass-if-equal "piped-process: with output"
'("foo bar\n" 0)