Update of /cvsroot/sbcl/sbcl/contrib/sb-posix
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv11238/contrib/sb-posix
Modified Files:
posix-tests.lisp
Log Message:
1.0.31.2: snow leopard (macos 10.6) build fixes
* on x86/darwin use -arch i386 flags in sb-grovel C compilation
* comment out failing sb-posix tests
* add -arch i386 flags to Config.x86-darwin CFLAGS and LINKFLAGS
* remove #include <ucontext.h> instances
Index: posix-tests.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/posix-tests.lisp,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- posix-tests.lisp 22 Mar 2009 22:34:58 -0000 1.42
+++ posix-tests.lisp 31 Aug 2009 06:11:12 -0000 1.43
@@ -213,6 +213,7 @@
result)))
#.sb-posix::eacces)
+#-darwin
(deftest stat.1
(let* ((stat (sb-posix:stat *test-directory*))
(mode (sb-posix::stat-mode stat)))
@@ -220,7 +221,7 @@
(logand mode (logior sb-posix::s-iread sb-posix::s-iwrite sb-posix::s-iexec)))
#.(logior sb-posix::s-iread sb-posix::s-iwrite sb-posix::s-iexec))
-#-win32
+#-(or darwin win32)
(deftest stat.2
(let* ((stat (sb-posix:stat "/"))
(mode (sb-posix::stat-mode stat)))
@@ -241,7 +242,7 @@
(< (- atime unix-now) 10))
t)
-#-win32
+#-(or darwin win32)
(deftest stat.4
(let* ((stat (sb-posix:stat (make-pathname :directory '(:absolute :up))))
(mode (sb-posix::stat-mode stat)))
@@ -330,6 +331,7 @@
(sb-posix:s-isreg mode))
nil)
+#-darwin
(deftest stat-mode.2
(with-stat-mode (mode *test-directory*)
(sb-posix:s-isdir mode))
@@ -356,7 +358,7 @@
(sb-posix:s-issock mode))
nil)
-#-win32
+#-(or win32 darwin)
(deftest stat-mode.7
(let ((link-pathname (make-pathname :name "stat-mode.7"
:defaults *test-directory*)))
@@ -368,6 +370,7 @@
(ignore-errors (sb-posix:unlink link-pathname))))
t)
+#-darwin
(deftest stat-mode.8
(let ((pathname (make-pathname :name "stat-mode.8"
:defaults *test-directory*)))
@@ -515,6 +518,7 @@
(sb-posix:closedir dir)))
t)
+#-darwin
(deftest readdir/dirent-name
(let ((dir (sb-posix:opendir *current-directory*)))
(unwind-protect
@@ -607,12 +611,12 @@
t)
-#-win32
+#-(or darwin win32)
(deftest time.1
(plusp (sb-posix:time))
t)
-#-win32
+#-(or darwin win32)
(deftest utimes.1
(let ((file (merge-pathnames #p"utimes.1" *test-directory*))
(atime (random (1- (expt 2 31))))
|