diff options
author | Justus Winter <justus@g10code.com> | 2017-04-05 15:18:30 +0200 |
---|---|---|
committer | Justus Winter <justus@g10code.com> | 2017-04-05 15:22:42 +0200 |
commit | 01e84d429aeeb1450012ff0576a6a24de50693c6 (patch) | |
tree | 81ccb5b8e6fca953d7d1bca85f45763f0151aa02 | |
parent | tests: Fix setup of ephemeral home directories. (diff) | |
download | gnupg2-01e84d429aeeb1450012ff0576a6a24de50693c6.tar.xz gnupg2-01e84d429aeeb1450012ff0576a6a24de50693c6.zip |
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 <justus@g10code.com>
-rw-r--r-- | tests/openpgp/defs.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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))))))) |