[Pkg-gnupg-commit] [gnupg2] 55/124: tests: Dump the tools that the tests are going to use.

[Daniel Kahn Gillmor]

This is an automated email from the git hooks/post-receive script.

dkg pushed a commit to branch experimental
in repository gnupg2.

commit c7833eca38fdb8d9ba7b59438ea87d651b8bf7ba
Author: Justus Winter <justus at g10code.com>
Date:   Wed Mar 15 12:34:04 2017 +0100

    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 <justus at g10code.com>
---
 tests/openpgp/setup.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/tests/openpgp/setup.scm b/tests/openpgp/setup.scm
index bf1876e..4b3bfcb 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)

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-gnupg/gnupg2.git