mirror of
git://git.gnupg.org/gnupg.git
synced 2024-12-22 10:19:57 +01:00
tests: Fail if we cannot create the socket directory.
* tests/migrations/common.scm (run-test): Turn warning into an error. * tests/openpgp/defs.scm (start-agent): Likewise. -- We use separate directories to create the sockets in so that the absolute path to the every socket fits into sun_path. Fixes-commit: 7e19786a5ddef637d1d9d21593fecf5a36b6f372 Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
fe0b37e123
commit
d75d20909d
@ -53,7 +53,7 @@
|
||||
(untar-armored src-tarball)
|
||||
(setenv "GNUPGHOME" (getcwd) #t)
|
||||
|
||||
(catch (log "Warning: Creating socket directory failed:" (car *error*))
|
||||
(catch (fail "Creating socket directory failed (see README):" (car *error*))
|
||||
(call-popen `(,gpgconf --create-socketdir) ""))
|
||||
(test (getcwd))
|
||||
(catch (log "Warning: Removing socket directory failed.")
|
||||
|
@ -446,7 +446,7 @@
|
||||
(atexit (lambda ()
|
||||
(with-home-directory gnupghome
|
||||
(stop-agent)))))
|
||||
(catch (log "Warning: Creating socket directory failed:" (car *error*))
|
||||
(catch (fail "Creating socket directory failed (see README):" (car *error*))
|
||||
(call-popen `(,(tool 'gpgconf) --create-socketdir) ""))
|
||||
(call-check `(,(tool 'gpg-connect-agent) --verbose
|
||||
,(string-append "--agent-program=" (tool 'gpg-agent)
|
||||
|
Loading…
x
Reference in New Issue
Block a user