summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2025-03-30 21:17:40 -0700
committerMichael Gran <spk121@yahoo.com>2025-03-30 21:17:40 -0700
commit2a7c9292bf58b1fff9ae3b1ed18cd6f5bc24186e (patch)
tree466dc0a3e35279086c63d58fd574ff321b99e5f7
parent2b5528847db0b70fc676e34b30acaa6bc296f980 (diff)
downloadguile-2a7c9292bf58b1fff9ae3b1ed18cd6f5bc24186e.tar.gz
Other test fixeswip-mingw-2025
-rw-r--r--test-suite/tests/popen.test2
-rw-r--r--test-suite/tests/posix.test12
2 files changed, 8 insertions, 6 deletions
diff --git a/test-suite/tests/popen.test b/test-suite/tests/popen.test
index 01907d6f5..424af7c3d 100644
--- a/test-suite/tests/popen.test
+++ b/test-suite/tests/popen.test
@@ -115,7 +115,7 @@
(open-input-pipe "read line && echo $line")))))
(display "hello\n" (cdr p2c))
(force-output (cdr p2c))
- (let ((result (eq? (read port)) 'hello))
+ (let ((result (eq? (read port) 'hello)))
(close-port (cdr p2c))
(close-pipe port)
result)))
diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
index 47d39fcc8..73e72a84d 100644
--- a/test-suite/tests/posix.test
+++ b/test-suite/tests/posix.test
@@ -396,10 +396,12 @@
(with-error-to-port port
(lambda ()
(system* "sh" "-c" "echo bong >&2"))))))))
-
- (delete-file file)
- (and (zero? (status:exit-val status))
- (get-string-all port))))
+ (let* ((input (get-string-all port))
+ (exitval (status:exit-val status)))
+ (close port)
+ (delete-file file)
+ (and (zero? exitval)
+ input))))
(pass-if-equal "https://bugs.gnu.org/63024"
0
@@ -458,7 +460,7 @@
(pass-if-equal "wc with stdin and stdout redirects"
"2\n"
- (unless (defined? 'SIGPIPE)
+ (when mingw?
;; This test expects a closing pipe to kill the spawned process.
(throw 'unsupported))
(let* ((a+b (pipe))