Skip to content

Commit

Permalink
1.0.39.10: cleanup sb-posix tests for darwin
Browse files Browse the repository at this point in the history
 * check for the error codes darwin gives back

 * use :latin-1 for *default-c-string-external-format* in readdir test
  • Loading branch information
Cyrus Harmon committed Jun 11, 2010
1 parent 74cfbf6 commit faa1bdc
Show file tree
Hide file tree
Showing 2 changed files with 13 additions and 8 deletions.
19 changes: 12 additions & 7 deletions contrib/sb-posix/posix-tests.lisp
Expand Up @@ -108,10 +108,12 @@
(sb-posix:mkdir #-win32 "/" #+win32 "C:/" 0)
(sb-posix:syscall-error (c)
(sb-posix:syscall-errno c)))
#-win32
#.sb-posix::eexist
#+darwin
#.sb-posix:eisdir
#+win32
#.sb-posix:eacces)
#.sb-posix:eacces
#-(or darwin win32)
#.sb-posix::eexist)

(define-eacces-test mkdir.error.3
(let* ((dir (merge-pathnames
Expand Down Expand Up @@ -167,10 +169,12 @@
(sb-posix:rmdir #-win32 "/" #+win32 "C:/")
(sb-posix:syscall-error (c)
(sb-posix:syscall-errno c)))
#-win32
#.sb-posix::ebusy
#+darwin
#.sb-posix:eisdir
#+win32
#.sb-posix::eacces)
#.sb-posix::eacces
#-(or darwin win32)
#.sb-posix::ebusy)

(deftest rmdir.error.4
(let* ((dir (ensure-directories-exist
Expand Down Expand Up @@ -504,7 +508,8 @@
nil)

(deftest readdir.1
(let ((dir (sb-posix:opendir "/")))
(let ((dir (sb-posix:opendir "/"))
(sb-alien::*default-c-string-external-format* :latin-1))
(unwind-protect
(block dir-loop
(loop for dirent = (sb-posix:readdir dir)
Expand Down
2 changes: 1 addition & 1 deletion version.lisp-expr
Expand Up @@ -17,4 +17,4 @@
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
"1.0.39.9"
"1.0.39.10"

0 comments on commit faa1bdc

Please sign in to comment.