security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-04-17 15:44:34 +02:00
Code Activity

tests: Dump the tools that the tests are going to use.

Browse Source 
* tests/openpgp/setup.scm: Dump the tools that the tests are going to
use.  This will help us diagnose problems with the tests picking the
wrong paths in the future.

GnuPG-bug-id: 2979
Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-03-15 12:34:04 +01:00
parent 6993e42088
commit c7833eca38
No known key found for this signature in database
GPG Key ID: DD1A52F9DA8C9020
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/openpgp/setup.scm
View File

@ -22,6 +22,24 @@
(unless (member "--create-tarball" *args*) (unless (member "--create-tarball" *args*)
(fail "Usage: setup.scm --create-tarball <file>")) (fail "Usage: setup.scm --create-tarball <file>"))
(when (> (*verbose*) 0)
(define (pad symbol length)
(let loop ((cs (string->list (symbol->string symbol)))
(result (make-string length #\space))
(i 0))
(if (null? cs)
result
(begin
(string-set! result i (car cs))
(loop (cdr cs) result (+ 1 i))))))
(log " I am going to use these tools:\n"
"==============================")
(for-each
(lambda (t)
(log (pad t 25) (tool t)))
'(gpgconf gpg gpg-agent scdaemon gpgsm dirmngr gpg-connect-agent
gpg-preset-passphrase gpgtar pinentry)))
(with-ephemeral-home-directory (with-ephemeral-home-directory
(chdir (getenv "GNUPGHOME")) (chdir (getenv "GNUPGHOME"))
(create-gpghome) (create-gpghome)