mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +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

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

@ -225,7 +225,6 @@ exec 2>~a; read REPLY"
(close-pipe port) (close-pipe port)
result)))))) result))))))
(with-test-prefix "open-pipe*" (with-test-prefix "open-pipe*"
(pass-if-equal "OPEN_BOTH" (pass-if-equal "OPEN_BOTH"
@ -284,8 +283,12 @@ exec 2>~a; read REPLY"
(pass-if-equal "piped-process" (pass-if-equal "piped-process"
42 42
(status:exit-val (status:exit-val
(cdr (waitpid ((@@ (ice-9 popen) piped-process) (cdr (waitpid
"./meta/guile" '("-c" "(exit 42)")))))) (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" (pass-if-equal "piped-process: with output"
'("foo bar\n" 0) '("foo bar\n" 0)