diff options
Diffstat (limited to '')
| -rw-r--r-- | tests/openpgp/defs.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/openpgp/defs.scm b/tests/openpgp/defs.scm index 8ceffc815..06bc0b828 100644 --- a/tests/openpgp/defs.scm +++ b/tests/openpgp/defs.scm @@ -132,3 +132,7 @@ (list (string->number (cadr p)) (caddr p)))) (string-split (call-popen `(,@GPG --with-colons ,@args) input) #\newline))) + +(let ((verbose (string->number (getenv "verbose")))) + (if (number? verbose) + (*set-verbose!* verbose))) |