1.0.14.14 fix SB-POSIX:MK*TEMP() tests
authorNikodemus Siivola <nikodemus@random-state.net>
Sun, 3 Feb 2008 20:05:54 +0000 (20:05 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Sun, 3 Feb 2008 20:05:54 +0000 (20:05 +0000)
 * BSD may be happy with just three Xs in the template, but Linux at
   least wants six.

contrib/sb-posix/posix-tests.lisp
version.lisp-expr

index 71f218c..3b9b171 100644 (file)
     (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)
index d3b6f95..6059a47 100644 (file)
@@ -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"