mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
parallel-exec would fail in :READDIR/DIRENT-NAME a lot because many tests (in any test file) would create and delete files in the current directory, while this test randomly happened to be running. Naturally the other tests are to blame, but in trying to fix it, I saw that every posix test was badly behaved and that "-j 2 --runs_per_test 2" on sb-posix.impure would reliably fail because *test-directory* was derived solely from *load-truename*.
9 lines
381 B
Common Lisp
9 lines
381 B
Common Lisp
(require :sb-posix)
|
|
(let* ((pathname (test-util:generate-test-directory-name))
|
|
(test-util:*test-directory* pathname))
|
|
(ensure-directories-exist pathname)
|
|
(format t "~&::: NOTE: using test-directory ~S~%" pathname)
|
|
(unwind-protect (load "../contrib/sb-posix/posix-tests.lisp")
|
|
(delete-directory pathname :recursive t)))
|
|
(load "../contrib/sb-posix/libc-tests.lisp")
|