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

Do not depend on tmpnam in posix.test.

Browse source 
`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>
This commit is contained in:
Tomas Volf 2024-08-10 00:54:34 +02:00 • committed by Ludovic Courtès
parent 58a722d883
commit ff256c356b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/posix.test
View file

@ -365,7 +365,8 @@
(pass-if-equal "https://bugs.gnu.org/52835" (pass-if-equal "https://bugs.gnu.org/52835"
"bong\n" "bong\n"
(let ((file (tmpnam))) (let* ((port (mkstemp "T-XXXXXX"))
(file (port-filename port)))
;; Redirect stdout and stderr to FILE. ;; Redirect stdout and stderr to FILE.
(define status (define status
(call-with-output-file file (call-with-output-file file
@ -376,8 +377,9 @@
(lambda () (lambda ()
(system* "sh" "-c" "echo bong >&2")))))))) (system* "sh" "-c" "echo bong >&2"))))))))
(delete-file file)
(and (zero? (status:exit-val status)) (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" (pass-if-equal "https://bugs.gnu.org/63024"
0 0