From 6800d1527cd89985e85976947873b3164d6ea317 Mon Sep 17 00:00:00 2001 From: Anton Kovalenko Date: Wed, 9 Mar 2011 02:36:35 +0300 Subject: [PATCH] sb-posix: redefined test rmdir.error.3 to accept ENOTEMPTY for win32 Thanks to Anton Kovalenko. --- contrib/sb-posix/posix-tests.lisp | 22 +++++++++++++--------- 1 file changed, 13 insertions(+), 9 deletions(-) diff --git a/contrib/sb-posix/posix-tests.lisp b/contrib/sb-posix/posix-tests.lisp index d257086..0eec378 100644 --- a/contrib/sb-posix/posix-tests.lisp +++ b/contrib/sb-posix/posix-tests.lisp @@ -171,15 +171,19 @@ (handler-case (sb-posix:rmdir #-win32 "/" #+win32 "C:/") (sb-posix:syscall-error (c) - (sb-posix:syscall-errno c))) - #+darwin - #.sb-posix:eisdir - #+win32 - #.sb-posix::eacces - #+sunos - #.sb-posix::einval - #-(or darwin win32 sunos) - #.sb-posix::ebusy) + (typep + (sb-posix:syscall-errno c) + '(member + #+darwin + #.sb-posix:eisdir + #+win32 + #.sb-posix::eacces + #+win32 + #.sb-posix::enotempty + #+sunos + #.sb-posix::einval + #-(or darwin win32 sunos) + #.sb-posix::ebusy)))) t) (deftest rmdir.error.4 (let* ((dir (ensure-directories-exist -- 1.7.10.4