2 (let* ((pathname (test-util:generate-test-directory-name
))
3 (test-util:*test-directory
* pathname
))
4 (ensure-directories-exist pathname
)
5 (format t
"~&::: NOTE: using test-directory ~S~%" pathname
)
6 (unwind-protect (load "../contrib/sb-posix/posix-tests.lisp")
7 (delete-directory pathname
:recursive t
)))
8 (load "../contrib/sb-posix/libc-tests.lisp")