From 80f0a4f8c1a741d6f0c5801f4debb8d0de3c8e41 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 3 Feb 2008 20:05:54 +0000 Subject: [PATCH] 1.0.14.14 fix SB-POSIX:MK*TEMP() tests * BSD may be happy with just three Xs in the template, but Linux at least wants six. --- contrib/sb-posix/posix-tests.lisp | 8 ++++---- version.lisp-expr | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp index 71f218c..3b9b171 100644 --- a/contrib/sb-posix/posix-tests.lisp +++ b/contrib/sb-posix/posix-tests.lisp @@ -690,7 +690,7 @@ (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 @@ -704,7 +704,7 @@ (sb-ext:parse-native-namestring (sb-posix:mkdtemp (make-pathname :name "mkdtemp-1" - :type "XXX" + :type "XXXXXX" :defaults *test-directory*)) nil *default-pathname-defaults* @@ -721,7 +721,7 @@ #-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) diff --git a/version.lisp-expr b/version.lisp-expr index d3b6f95..6059a47 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; 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" -- 1.7.10.4