diff options
| author | Justus Winter <[email protected]> | 2017-03-15 11:34:04 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-03-15 11:34:04 +0000 |
| commit | c7833eca38fdb8d9ba7b59438ea87d651b8bf7ba (patch) | |
| tree | 2dcec159f0f36b7cc828076bd70f8265de3b5042 | |
| parent | build: Remove '--disable-tools' configuration option. (diff) | |
| download | gnupg-c7833eca38fdb8d9ba7b59438ea87d651b8bf7ba.tar.gz gnupg-c7833eca38fdb8d9ba7b59438ea87d651b8bf7ba.zip | |
tests: Dump the tools that the tests are going to use.
* 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 <[email protected]>
| -rwxr-xr-x | tests/openpgp/setup.scm | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/openpgp/setup.scm b/tests/openpgp/setup.scm index bf1876e2d..4b3bfcb41 100755 --- a/tests/openpgp/setup.scm +++ b/tests/openpgp/setup.scm @@ -22,6 +22,24 @@ (unless (member "--create-tarball" *args*) (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 (chdir (getenv "GNUPGHOME")) (create-gpghome) |