From 11a9b9ba4fa60dd644d019300adc6859111b9c66 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen <marius.gerbershagen@gmail.com> Date: Sat, 26 Dec 2020 19:42:25 +0100 Subject: [PATCH] fix bogus error in ensure-directories-exist.8 The test would succeed only the first time it was run, since it was creating a temporary directory each run which wasn't cleaned up. --- files/ensure-directories-exist.lsp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/files/ensure-directories-exist.lsp b/files/ensure-directories-exist.lsp index bdb67b98..e6fea4b5 100644 --- a/files/ensure-directories-exist.lsp +++ b/files/ensure-directories-exist.lsp @@ -106,13 +106,14 @@ ;;; Case where directory shouldn't exist -;; The directort ansi-tests/scratch must not exist before this -;; test is run (deftest ensure-directories-exist.8 (let* ((subdir (make-pathname :directory '(:relative "scratch") :defaults *default-pathname-defaults*)) (pn (make-pathname :name "foo" :type "txt" :defaults subdir))) + (ignore-errors + (delete-file pn) + (delete-file subdir)) (assert (not (probe-file pn)) () "Delete subdirectory scratch and its contents!") (let* ((results nil) -- GitLab