security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-01-03 12:11:33 +01:00
Code Activity

tests: Fix running python condition.

Browse Source 
* tests/gpgme/gpgme-defs.scm (run-python-tests?): We need Python.

Signed-off-by: NIIBE Yutaka <gniibe@fsij.org>
This commit is contained in:
NIIBE Yutaka 2017-03-15 16:45:18 +09:00
parent d82abbb1b6
commit a672ddec03
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/gpgme/gpgme-defs.scm
View File

@ -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))))))