diff options
author | Tomas Volf <~@wolfsden.cz> | 2024-08-10 00:54:34 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-10-20 21:22:23 +0200 |
commit | ff256c356be9327c24a2d7fc0f007722422e6604 (patch) | |
tree | 446f2526c038368bb66597e9049bf6cbb8dabde8 | |
parent | 58a722d8837c25397820b41bcfa18bc931fa8440 (diff) | |
download | guile-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.test | 6 |
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 |