summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTomas Volf <~@wolfsden.cz>2024-08-10 00:54:34 +0200
committerLudovic Courtès <ludo@gnu.org>2024-10-20 21:22:23 +0200
commitff256c356be9327c24a2d7fc0f007722422e6604 (patch)
tree446f2526c038368bb66597e9049bf6cbb8dabde8
parent58a722d8837c25397820b41bcfa18bc931fa8440 (diff)
downloadguile-ff256c356be9327c24a2d7fc0f007722422e6604.tar.gz
Do not depend on tmpnam in posix.test.
`tmpnam' is a deprecated procedure that can be excluded during a configure (`--disable-tmpnam'). There currently was a single test relying on it, and therefore failing is such configuration. This commit switches to mkstemp instead. * test-suite/tests/posix.test ("system*"): Use mkstemp instead of tmpnam. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r--test-suite/tests/posix.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
index 310f3ac7c..7b7590b9b 100644
--- a/test-suite/tests/posix.test
+++ b/test-suite/tests/posix.test
@@ -365,7 +365,8 @@
(pass-if-equal "https://bugs.gnu.org/52835"
"bong\n"
- (let ((file (tmpnam)))
+ (let* ((port (mkstemp "T-XXXXXX"))
+ (file (port-filename port)))
;; Redirect stdout and stderr to FILE.
(define status
(call-with-output-file file
@@ -376,8 +377,9 @@
(lambda ()
(system* "sh" "-c" "echo bong >&2"))))))))
+ (delete-file file)
(and (zero? (status:exit-val status))
- (call-with-input-file file get-string-all))))
+ (get-string-all port))))
(pass-if-equal "https://bugs.gnu.org/63024"
0