security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2024-12-22 10:19:57 +01:00
Code Activity

tests: Fix setup of ephemeral home directories.

Browse Source 
* 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>
This commit is contained in:
Justus Winter 2017-04-05 15:18:30 +02:00
parent 32b75fb774
commit 01e84d429a
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/openpgp/defs.scm
View File

@ -299,8 +299,8 @@
(finally (unlink-recursively ,ephemeral-home-directory) (finally (unlink-recursively ,ephemeral-home-directory)
(dynamic-wind (dynamic-wind
(lambda () (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 () ,@expressions)
(lambda () (setenv "GNUPGHOME" ,original-home-directory #t))))))) (lambda () (setenv "GNUPGHOME" ,original-home-directory #t)))))))