diff options
| -rw-r--r-- | tests/openpgp/run-tests.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/openpgp/run-tests.scm b/tests/openpgp/run-tests.scm index 9e9bc3d0e..23ff8a2b0 100644 --- a/tests/openpgp/run-tests.scm +++ b/tests/openpgp/run-tests.scm @@ -118,7 +118,8 @@ (if (null? tests') (let ((results (pool::wait))) (for-each (lambda (t) - (unlink-recursively t::directory) + (catch (echo "Removing" t::directory "failed:" *error*) + (unlink-recursively t::directory)) (t::report)) results::procs) (exit (results::report))) (let* ((wd (mkdtemp)) @@ -134,7 +135,8 @@ (if (null? tests') (let ((results (pool::wait))) (for-each (lambda (t) - (unlink-recursively t::directory)) + (catch (echo "Removing" t::directory "failed:" *error*) + (unlink-recursively t::directory))) results::procs) (exit (results::report))) (let* ((wd (mkdtemp)) |