From 4a778022f984034220250ff9e9759eed64c1b2b5 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Sun, 26 Jun 2016 19:32:14 +0200
Subject: Fix temporary database location.

Don't create it in 'srcdir' to please 'make distcheck'.
---
 tests/database.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tests')

diff --git a/tests/database.scm b/tests/database.scm
index 8c6efc0..41cb4d6 100644
--- a/tests/database.scm
+++ b/tests/database.scm
@@ -34,10 +34,10 @@
   ;; Global Slot for a job ID in the database.
   (make-parameter #t))
 
-(parameterize ((%package-database
-                ;; Use an empty and temporary database for the tests.
-                (let ((dir (dirname (current-filename))))
-                  (string-append dir "/tmp.db"))))
+(parameterize
+    ((%package-database
+      ;; Use an empty and temporary database for the tests.
+      (string-append (getcwd) "/" (number->string (getpid)) "-tmp.db")))
   (dynamic-wind
     (const #t)
     (λ ()
-- 
cgit v1.2.3