tests: Dump the tools that the tests are going to use.
authorJustus Winter <justus@g10code.com>
Wed, 15 Mar 2017 11:34:04 +0000 (12:34 +0100)
committerJustus Winter <justus@g10code.com>
Wed, 15 Mar 2017 11:34:04 +0000 (12:34 +0100)
* 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>
tests/openpgp/setup.scm

index bf1876e..4b3bfcb 100755 (executable)
 (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)