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 <gniibe@fsij.org>

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.

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)