diff options
Diffstat (limited to 'tests/backend-tests.lisp')
| -rw-r--r-- | tests/backend-tests.lisp | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/tests/backend-tests.lisp b/tests/backend-tests.lisp index dc411d5..0f60267 100644 --- a/tests/backend-tests.lisp +++ b/tests/backend-tests.lisp @@ -34,15 +34,6 @@ (test-hash-backend (make-octets 16834 :element 5) 32kib) (test-hash-backend (make-octets 96000 :element 5) 32kib)) -(defun make-temporary-dir () - (let* ((tmpdir (uiop:temporary-directory)) - (tmp-tmpdir (make-pathname :directory (serapeum:append1 - (pathname-directory tmpdir) - (ironclad:byte-array-to-hex-string (ironclad:random-data 10))) - :defaults tmpdir))) - (ensure-directories-exist tmp-tmpdir) - tmp-tmpdir)) - (defmacro test-file-backend (array &optional (secret null-secret)) `(let ((tmpdir (make-temporary-dir))) (unwind-protect |