diff options
| author | Justus Winter <[email protected]> | 2017-04-11 08:46:09 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-04-11 09:37:02 +0000 |
| commit | 1b28d9dbe0260b2a4645c4b5caae11d9f375c942 (patch) | |
| tree | 87b34102e92b33e7de9e08aac7178fa3dfd75e1a /tests/migrations | |
| parent | tests: Move common functionality. (diff) | |
| download | gnupg-1b28d9dbe0260b2a4645c4b5caae11d9f375c942.tar.gz gnupg-1b28d9dbe0260b2a4645c4b5caae11d9f375c942.zip | |
tests: Make tests more robust.
* tests/openpgp/defs.scm (have-opt-always-trust): Execute in empty
ephemeral home directory. This prevents gpg from picking up the
configuration from the current gnupghome (if any).
* tests/migrations/common.scm (untar-armored): Likewise.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to 'tests/migrations')
| -rw-r--r-- | tests/migrations/common.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/migrations/common.scm b/tests/migrations/common.scm index fa8f1295a..cba659024 100644 --- a/tests/migrations/common.scm +++ b/tests/migrations/common.scm @@ -39,10 +39,11 @@ (define GPGTAR (path-join (getenv "objdir") "tools" (qualify "gpgtar"))) (define (untar-armored source-name) - (pipe:do - (pipe:open source-name (logior O_RDONLY O_BINARY)) - (pipe:spawn `(,@GPG --dearmor)) - (pipe:spawn `(,GPGTAR --extract --directory=. -)))) + (with-ephemeral-home-directory (lambda ()) + (pipe:do + (pipe:open source-name (logior O_RDONLY O_BINARY)) + (pipe:spawn `(,@GPG --dearmor)) + (pipe:spawn `(,GPGTAR --extract --directory=. -))))) (define (run-test message src-tarball test) (catch (skip "gpgtar not built") |