diff options
| -rw-r--r-- | tests/openpgp/run-tests.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/openpgp/run-tests.scm b/tests/openpgp/run-tests.scm index 76432b736..8f9435943 100644 --- a/tests/openpgp/run-tests.scm +++ b/tests/openpgp/run-tests.scm @@ -44,7 +44,8 @@ (string-append "--" variant)))) (define setup-use-keyboxd (setup* "use-keyboxd")) -(define use-keyboxd? (or (string=? "--use-keyboxd" (car *args*)) +(define use-keyboxd? (or (and (not (null? *args*)) + (string=? "--use-keyboxd" (car *args*))) (string=? "keyboxd" (getenv "GPGSCM_TEST_VARIANT")))) (define tests (filter (lambda (arg) (not (string-prefix? arg "--"))) *args*)) |