(ignore-errors (sb-posix:unlink name))))
nil)
+#-hpux ; fix: cant handle c-vargs
(deftest open.error.1
(handler-case (sb-posix:open *test-directory* sb-posix::o-wronly)
(sb-posix:syscall-error (c)
#+win32
#.sb-posix:eacces)
-#-(or (and x86-64 linux) win32)
+#-(or (and x86-64 (or linux sunos)) win32)
(deftest fcntl.1
(let ((fd (sb-posix:open "/dev/null" sb-posix::o-nonblock)))
(= (sb-posix:fcntl fd sb-posix::f-getfl) sb-posix::o-nonblock))
t)
;; On AMD64/Linux O_LARGEFILE is always set, even though the whole
;; flag makes no sense.
-#+(and x86-64 linux)
+#+(and x86-64 (or linux sunos))
(deftest fcntl.1
(let ((fd (sb-posix:open "/dev/null" sb-posix::o-nonblock)))
(/= 0 (logand (sb-posix:fcntl fd sb-posix::f-getfl)
sb-posix::o-nonblock)))
t)
-#-win32
+#-(or hpux win32) ; fix: cant handle c-vargs
(deftest fcntl.flock.1
(locally (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
(let ((flock (make-instance 'sb-posix:flock
;; Same thing, but with a very long link target (which doesn't have
;; to exist). This tests the array adjustment in the wrapper,
;; provided that the target's length is long enough.
+ #-hpux ; arg2 to readlink is 80, and arg0 is larger than that
(deftest readlink.2
(let ((target-pathname (make-pathname
:name (make-string 255 :initial-element #\a)
(delete-file temp))))
t "mkstemp-1")
-#-(or win32 sunos)
-;;; mkdtemp is unimplemented on at least Solaris 10
+;#-(or win32 sunos hpux)
+;;;; mkdtemp is unimplemented on at least Solaris 10
+#-(or win32 hpux)
+;;; But it is implemented on OpenSolaris 2008.11
(deftest mkdtemp.1
(let ((pathname
(sb-ext:parse-native-namestring