diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-06-26 19:32:14 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-06-26 22:54:49 +0200 |
| commit | 4a778022f984034220250ff9e9759eed64c1b2b5 (patch) | |
| tree | 920b87ab3204d022591eb6bdad3a10341bee2095 /tests | |
| parent | 5ff38984e8a0b26bf3b97477158f55b3721ee2da (diff) | |
| download | cuirass-4a778022f984034220250ff9e9759eed64c1b2b5.tar cuirass-4a778022f984034220250ff9e9759eed64c1b2b5.tar.gz | |
Fix temporary database location.
Don't create it in 'srcdir' to please 'make distcheck'.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/database.scm | 8 |
1 files changed, 4 insertions, 4 deletions
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) (λ () |