Raymond Toy pushed to branch issue-375-mkstemp-return-filename at cmucl / cmucl Commits: b65c787b by Raymond Toy at 2025-02-17T02:09:01+00:00 Apply suggestion to mkstemp.name-returned Compare returned name with template (which should be different). Add a few more tests for some other invariants. - - - - - 1 changed file: - tests/unix.lisp Changes: ===================================== tests/unix.lisp ===================================== @@ -7,13 +7,16 @@ (define-test mkstemp.name-returned (:tag :issues) - (let (fd name) + (let (fd filename) (unwind-protect (progn - (multiple-value-setq (fd name) - (unix::unix-mkstemp "test-XXXXXX")) - (assert-true fd) - (assert-false (search "XXXXXX" name))) + (let ((template "test-XXXXXX")) + (multiple-value-setq (fd filename) + (unix::unix-mkstemp (copy-seq template))) + (assert-true fd) + (assert-true (equalp (length filename) (length template))) + (assert-false (equalp filename template)) + (assert-true (>= 5 (mismatch filename template)))))) (when fd (unix:unix-unlink name))))) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b65c787bfdbd4ee9d2a8fd4e... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/b65c787bfdbd4ee9d2a8fd4e... You're receiving this email because of your account on gitlab.common-lisp.net.