From: Anton Kovalenko <anton@sw4me.com>
Date: Tue, 8 Mar 2011 23:36:35 +0000 (+0300)
Subject: sb-posix: redefined test rmdir.error.3 to accept ENOTEMPTY for win32
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6800d1527cd89985e85976947873b3164d6ea317;hp=ad4b18f5d843d91cc48c9b6cc936a6c7be5fce27;p=sbcl.git

sb-posix: redefined test rmdir.error.3 to accept ENOTEMPTY for win32

Thanks to Anton Kovalenko.
---

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