summaryrefslogtreecommitdiff
path: root/lang/sbcl/files/patch-contrib::sb-posix::posix-tests.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lang/sbcl/files/patch-contrib::sb-posix::posix-tests.lisp')
-rw-r--r--lang/sbcl/files/patch-contrib::sb-posix::posix-tests.lisp16
1 files changed, 16 insertions, 0 deletions
diff --git a/lang/sbcl/files/patch-contrib::sb-posix::posix-tests.lisp b/lang/sbcl/files/patch-contrib::sb-posix::posix-tests.lisp
new file mode 100644
index 000000000000..13491f3f7b85
--- /dev/null
+++ b/lang/sbcl/files/patch-contrib::sb-posix::posix-tests.lisp
@@ -0,0 +1,16 @@
+--- contrib/sb-posix/posix-tests.lisp.orig Thu Feb 5 01:22:59 2004
++++ contrib/sb-posix/posix-tests.lisp Thu Feb 5 01:23:31 2004
+@@ -82,13 +82,6 @@
+ (sb-posix:syscall-error (c)
+ (sb-posix:syscall-errno c)))
+ #.sb-posix::eexist)
+-
+-(deftest mkdir.error.3
+- (handler-case
+- (sb-posix:mkdir "/almost-certainly-does-not-exist" 0)
+- (sb-posix:syscall-error (c)
+- (sb-posix:syscall-errno c)))
+- #.sb-posix::eacces)
+
+ (deftest rmdir.1
+ (let ((dne (make-pathname :directory '(:relative "rmdir.does-not-exist.1"))))