From a672ddec03f96475866d712b28be18b3fab43aef Mon Sep 17 00:00:00 2001 From: NIIBE Yutaka Date: Wed, 15 Mar 2017 16:45:18 +0900 Subject: [PATCH] tests: Fix running python condition. * tests/gpgme/gpgme-defs.scm (run-python-tests?): We need Python. Signed-off-by: NIIBE Yutaka --- tests/gpgme/gpgme-defs.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/tests/gpgme/gpgme-defs.scm b/tests/gpgme/gpgme-defs.scm index 2b104f264..058377475 100644 --- a/tests/gpgme/gpgme-defs.scm +++ b/tests/gpgme/gpgme-defs.scm @@ -175,9 +175,10 @@ (define python (catch #f (path-expand "python" (string-split (getenv "PATH") *pathsep*)))) (define (run-python-tests?) - (let* ((python-version - (string-trim char-whitespace? - (call-popen `(,python -c "import sys; print('{0}.{1}'.format(sys.version_info[0], sys.version_info[1]))") ""))) - (build-path (path-join gpgme-builddir "lang" "python" - (string-append "python" python-version "-gpg")))) - (trace (file-exists? (trace build-path))))) + (and python + (let* ((python-version + (string-trim char-whitespace? + (call-popen `(,python -c "import sys; print('{0}.{1}'.format(sys.version_info[0], sys.version_info[1]))") ""))) + (build-path (path-join gpgme-builddir "lang" "python" + (string-append "python" python-version "-gpg")))) + (trace (file-exists? (trace build-path))))))