(multiple-value-bind (fd temp)
(sb-posix:mkstemp (make-pathname
:name "mkstemp-1"
- :type "XXX"
+ :type "XXXXXX"
:defaults *test-directory*))
(let ((pathname (sb-ext:parse-native-namestring temp)))
(unwind-protect
(sb-ext:parse-native-namestring
(sb-posix:mkdtemp (make-pathname
:name "mkdtemp-1"
- :type "XXX"
+ :type "XXXXXX"
:defaults *test-directory*))
nil
*default-pathname-defaults*
#-win32
(deftest mktemp.1
(let ((pathname (sb-ext:parse-native-namestring
- (sb-posix:mktemp #p"mktemp.XXX"))))
+ (sb-posix:mktemp #p"mktemp.XXXXXX"))))
(values (equal "mktemp" (pathname-name pathname))
- (not (equal "XXX" (pathname-type pathname)))))
+ (not (equal "XXXXXX" (pathname-type pathname)))))
t t)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.14.13"
+"1.0.14.14"