tests: Fix distcheck.

* tests/openpgp/issue2417.scm: Copy configuration.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-08-10 17:57:32 +02:00
parent 5b59999ce0
commit a6acf1f6b3
1 changed files with 4 additions and 0 deletions

View File

@ -19,6 +19,8 @@
(load (with-path "defs.scm"))
(define old-home (getenv "GNUPGHOME"))
(define (touch file-name)
(close (open file-name (logior O_WRONLY O_BINARY O_CREAT) #o600)))
@ -32,6 +34,8 @@
(pipe:write-to keyfile (logior O_WRONLY O_BINARY O_CREAT) #o600))
(with-temporary-working-directory
(file-copy (path-join old-home "gpg.conf") "gpg.conf")
(file-copy (path-join old-home "gpg-agent.conf") "gpg-agent.conf")
(setenv "GNUPGHOME" "." #t)
(touch "trustdb.gpg")
(touch "pubring.gpg")