diff options
| author | NIIBE Yutaka <[email protected]> | 2022-04-26 08:20:08 +0000 |
|---|---|---|
| committer | NIIBE Yutaka <[email protected]> | 2022-04-26 08:20:08 +0000 |
| commit | f27a70ecc268f9318dbf87d23c451a3bad464ed1 (patch) | |
| tree | e7b5769bd2951d9f463e4381d199605fae1d5513 | |
| parent | tests: Support single invocation with variant. (diff) | |
| download | gnupg-f27a70ecc268f9318dbf87d23c451a3bad464ed1.tar.gz gnupg-f27a70ecc268f9318dbf87d23c451a3bad464ed1.zip | |
tests: Avoid auto-removal when test fails.
* tests/gpgscm/init.scm (*exit-status*): New.
(exit): Set *exit-status*.
* tests/gpgscm/tests.scm (mkdtemp-autoremove): Check
exit-status and only remove the directory if not zero.
--
Signed-off-by: NIIBE Yutaka <[email protected]>
| -rw-r--r-- | tests/gpgscm/init.scm | 3 | ||||
| -rw-r--r-- | tests/gpgscm/tests.scm | 2 |
2 files changed, 4 insertions, 1 deletions
diff --git a/tests/gpgscm/init.scm b/tests/gpgscm/init.scm index 66bec0f79..4c8c5125c 100644 --- a/tests/gpgscm/init.scm +++ b/tests/gpgscm/init.scm @@ -654,8 +654,11 @@ ;; resource management a chance to clean up. (define *interpreter-exit* (gensym)) +(define *exit-status* 0) + ;; Terminate the process returning STATUS to the parent. (define (exit status) + (set! *exit-status* status) (throw "interpreter exit" *interpreter-exit* status)) ;; A list of functions run at interpreter shutdown. diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index 51410020e..dbeda74d7 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -288,7 +288,7 @@ ;; Otherwise this works like mkdtemp. (define (mkdtemp-autoremove . components) (let ((dir (apply mkdtemp components))) - (atexit (lambda () (unlink-recursively dir))) + (atexit (lambda () (if (= *exit-status* 0) (unlink-recursively dir)))) dir)) (define-macro (with-temporary-working-directory . expressions) |