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
1 changed file:
Changes:
| ... | ... | @@ -7,13 +7,16 @@ |
| 7 | 7 | |
| 8 | 8 | (define-test mkstemp.name-returned
|
| 9 | 9 | (:tag :issues)
|
| 10 | - (let (fd name)
|
|
| 10 | + (let (fd filename)
|
|
| 11 | 11 | (unwind-protect
|
| 12 | 12 | (progn
|
| 13 | - (multiple-value-setq (fd name)
|
|
| 14 | - (unix::unix-mkstemp "test-XXXXXX"))
|
|
| 15 | - (assert-true fd)
|
|
| 16 | - (assert-false (search "XXXXXX" name)))
|
|
| 13 | + (let ((template "test-XXXXXX"))
|
|
| 14 | + (multiple-value-setq (fd filename)
|
|
| 15 | + (unix::unix-mkstemp (copy-seq template)))
|
|
| 16 | + (assert-true fd)
|
|
| 17 | + (assert-true (equalp (length filename) (length template)))
|
|
| 18 | + (assert-false (equalp filename template))
|
|
| 19 | + (assert-true (>= 5 (mismatch filename template))))))
|
|
| 17 | 20 | (when fd
|
| 18 | 21 | (unix:unix-unlink name)))))
|
| 19 | 22 |