From: Nikodemus S. <de...@us...> - 2008-02-03 20:06:00
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-posix In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv25711/contrib/sb-posix Modified Files: posix-tests.lisp Log Message: 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. Index: posix-tests.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/posix-tests.lisp,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- posix-tests.lisp 3 Feb 2008 01:20:43 -0000 1.35 +++ posix-tests.lisp 3 Feb 2008 20:05:54 -0000 1.36 @@ -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) |