From 01e84d429aeeb1450012ff0576a6a24de50693c6 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Wed, 5 Apr 2017 15:18:30 +0200 Subject: tests: Fix setup of ephemeral home directories. * tests/openpgp/defs.scm (with-ephemeral-home-directory): Set GNUPGHOME and cwd to the ephemeral directory before calling the setup function. GnuPG-bug-id: 3047 Fixes-commit: 32b75fb7743f35936d7014fce33c90ba97dfa374 Signed-off-by: Justus Winter --- tests/openpgp/defs.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tests/openpgp') diff --git a/tests/openpgp/defs.scm b/tests/openpgp/defs.scm index 4271ba04a..815a560c7 100644 --- a/tests/openpgp/defs.scm +++ b/tests/openpgp/defs.scm @@ -299,8 +299,8 @@ (finally (unlink-recursively ,ephemeral-home-directory) (dynamic-wind (lambda () - (force ,setup) - (setenv "GNUPGHOME" ,ephemeral-home-directory #t)) + (setenv "GNUPGHOME" ,ephemeral-home-directory #t) + (with-working-directory ,ephemeral-home-directory (force ,setup))) (lambda () ,@expressions) (lambda () (setenv "GNUPGHOME" ,original-home-directory #t))))))) -- cgit v1.2.3