[no subject]

[Mathieu Othacehe]

branch: master
commit cb1b713e0a9613ecde6622265491dd1fd9d81c75
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun Mar 21 20:04:09 2021 +0100

    Delete temporary mail file.
---
 tests/database.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/tests/database.scm b/tests/database.scm
index e766578..b9bfca2 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -43,8 +43,6 @@
 ;; passed on the standard input to the following file.
 (define tmp-mail ".tmp-mail")
 
-(false-if-exception (delete-file tmp-mail))
-
 (define example-spec
   (specification
    (name "guix")
@@ -614,5 +612,6 @@ timestamp, checkouttime, evaltime) VALUES ('guix', 0, 0, 0, 
0);")
 
   (test-assert "db-close"
     (begin
+      (false-if-exception (delete-file tmp-mail))
       (db-close (%db))
       #t)))