tests,w32: Make cleanup more robust.

* tests/openpgp/run-tests.scm (run-tests-parallel): Catch errors when
removing the working directory.  On Windows this can fail if there is
still a process using one of the files there.
(run-tests-sequential): Likewise.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-11-08 14:11:23 +01:00
parent 7cbb080384
commit dd13b2a561
1 changed files with 4 additions and 2 deletions

View File

@ -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))