From: Christophe R. <cr...@us...> - 2004-03-15 15:34:01
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-posix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24196/contrib/sb-posix Modified Files: posix-tests.lisp Log Message: 0.8.8.25: More SB-POSIX test fixes ... allow building as root again, since it seems that's a desired feature ... test for not having EUID of 0 in EACCES posix tests instead (this will probably annoy antifuchs, but I forgot to commit version.lisp-expr for the last fix. Since this is logically a simple continuation, I haven't bothered to increment it again) Index: posix-tests.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/posix-tests.lisp,v retrieving revision 1.12 retrieving revision 1.13 diff -u -d -r1.12 -r1.13 --- posix-tests.lisp 15 Mar 2004 13:27:51 -0000 1.12 +++ posix-tests.lisp 15 Mar 2004 15:24:53 -0000 1.13 @@ -17,6 +17,14 @@ (defconstant +mode-rwx-all+ (logior sb-posix::s-irusr sb-posix::s-iwusr sb-posix::s-ixusr sb-posix::s-irgrp sb-posix::s-iwgrp sb-posix::s-ixgrp sb-posix::s-iroth sb-posix::s-iwoth sb-posix::s-ixoth))) + +(defmacro define-eacces-test (name form &rest values) + `(deftest ,name + (block ,name + (when (= (sb-posix:geteuid) 0) + (return-from ,name (values ,@values))) + ,form) + ,@values)) (deftest chdir.1 (sb-posix:chdir *test-directory*) @@ -95,7 +103,7 @@ (sb-posix:syscall-errno c))) #.sb-posix::eexist) -(deftest mkdir.error.3 +(define-eacces-test mkdir.error.3 (let* ((dir (merge-pathnames (make-pathname :directory '(:relative "mkdir.error.3")) *test-directory*)) @@ -166,7 +174,7 @@ (or (= errno sb-posix::eexist) (= errno sb-posix::enotempty)))))) t) -(deftest rmdir.error.5 +(define-eacces-test rmdir.error.5 (let* ((dir (merge-pathnames (make-pathname :directory '(:relative "rmdir.error.5")) *test-directory*)) @@ -233,7 +241,7 @@ (sb-posix:syscall-errno c))) #.sb-posix::enoent) -(deftest stat.error.2 +(define-eacces-test stat.error.2 (let* ((dir (merge-pathnames (make-pathname :directory '(:relative "stat.error.2")) *test-directory*)) |