diff options
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) (λ () |