Raymond Toy pushed to branch issue-375-mkstemp-return-filename at cmucl / cmucl
Commits:
-
5814e20d
by Raymond Toy at 2025-02-07T12:50:18-08:00
2 changed files:
Changes:
| ... | ... | @@ -1441,9 +1441,7 @@ msgid "" |
| 1441 | 1441 | "Generates a unique temporary file name from TEMPLATE, and creates\n"
|
| 1442 | 1442 | " and opens the file. On success, the corresponding file descriptor\n"
|
| 1443 | 1443 | " and name of the file is returned. Otherwise, NIL and the UNIX error\n"
|
| 1444 | -" code is returned.\n"
|
|
| 1445 | -"\n"
|
|
| 1446 | -" The last six characters of the template must be \"XXXXXX\"."
|
|
| 1444 | +" code is returned."
|
|
| 1447 | 1445 | msgstr ""
|
| 1448 | 1446 | |
| 1449 | 1447 | #: src/code/unix.lisp
|
| ... | ... | @@ -56,18 +56,7 @@ |
| 56 | 56 | (assert-false fd)
|
| 57 | 57 | (assert-true (and (integerp errno) (plusp errno)))))
|
| 58 | 58 | |
| 59 | -;; Darwin allows any number of X's.
|
|
| 60 | -#-darwin
|
|
| 61 | 59 | (define-test mkstemp.bad-template.2
|
| 62 | - (:tag :issues)
|
|
| 63 | - (multiple-value-bind (fd errno)
|
|
| 64 | - (unix::unix-mkstemp "test-XXXXXXX")
|
|
| 65 | - ;; The template has too many X's so the FD should be NIL, and a
|
|
| 66 | - ;; positive Unix errno value should be returned.
|
|
| 67 | - (assert-false fd)
|
|
| 68 | - (assert-true (and (integerp errno) (plusp errno)))))
|
|
| 69 | - |
|
| 70 | -(define-test mkstemp.bad-template.3
|
|
| 71 | 60 | (:tag :issues)
|
| 72 | 61 | (multiple-value-bind (fd errno)
|
| 73 | 62 | (unix::unix-mkstemp "test-XXXXXXa")
|
| ... | ... | @@ -123,16 +112,6 @@ |
| 123 | 112 | (assert-false result)
|
| 124 | 113 | (assert-true (and (integerp errno) (plusp errno)))))
|
| 125 | 114 | |
| 126 | -;; Darwin allows any number of X's.
|
|
| 127 | -#-darwin
|
|
| 128 | -(define-test mkdtemp.bad-template.2
|
|
| 129 | - (:tag :issues)
|
|
| 130 | - (multiple-value-bind (result errno)
|
|
| 131 | - (unix::unix-mkdtemp "dir-XXXXXXX")
|
|
| 132 | - ;; Too many X's in template.
|
|
| 133 | - (assert-false result)
|
|
| 134 | - (assert-true (and (integerp errno) (plusp errno)))))
|
|
| 135 | - |
|
| 136 | 115 | (define-test mkdtemp.bad-template.2
|
| 137 | 116 | (:tag :issues)
|
| 138 | 117 | (multiple-value-bind (result errno)
|
| ... | ... | @@ -140,4 +119,3 @@ |
| 140 | 119 | ;; Template doesn't end in X's
|
| 141 | 120 | (assert-false result)
|
| 142 | 121 | (assert-true (and (integerp errno) (plusp errno))))) |
| 143 | - |