security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-07-03 22:56:33 +02:00
Code Activity

tests: Run the tests for the Python bindings of GPGME.

Browse source 
* tests/gpgme/gpgme-defs.scm (create-file): Write lines.
(create-gpgmehome): Extend function to create the right environment
for the Python tests.
* tests/gpgme/run-tests.scm: Make an environment cache for the Python
tests and enable them.
* tests/gpgme/wrap.scm: Do not hardcode the path of the Python
interpreter.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2017-03-09 14:33:02 +01:00
parent cca91a3f8f
commit 046a15a88c
No known key found for this signature in database
GPG key ID: DD1A52F9DA8C9020
3 changed files with 51 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

34
tests/gpgme/gpgme-defs.scm
View file

@ -45,12 +45,25 @@
;; The tests expect the pinentry to return the passphrase "abc".
(setenv "PINENTRY_USER_DATA" "abc" #t)
(define (create-file name content)
(define (create-file name . lines)
(letfd ((fd (open name (logior O_WRONLY O_CREAT O_BINARY) #o600)))
(display content (fdopen fd "wb"))))
(let ((port (fdopen fd "wb")))
(for-each (lambda (line) (display line port) (newline port)) lines))))
(define (create-gpgmehome . path)
(create-file "gpg.conf" "no-force-v3-sigs\n")
;; Support for various environments.
(define mode
(cond
((equal? path '("lang" "python" "tests"))
(set! path '("tests" "gpg")) ;; Mostly uses files from tests/gpg.
'python)
(else
'gpg)))
(create-file
"gpg.conf"
"no-force-v3-sigs"
(string-append "agent-program " (tool 'gpg-agent) "|--debug-quick-random\n"))
(create-file
"gpg-agent.conf"
(string-append "pinentry-program " (tool 'pinentry)))
@ -75,6 +88,21 @@
(call-check `(,@GPG --yes --import ,(apply in-gpgme-srcdir
`(,@path ,file)))))
(list "pubdemo.asc" "secdemo.asc"))
(when (equal? mode 'python)
(log "Importing extra keys for Python tests")
(for-each
(lambda (file)
(call-check `(,@GPG --yes --import
,(apply in-gpgme-srcdir
`("lang" "python" "tests" ,file)))))
(list "encrypt-only.asc" "sign-only.asc"))
(log "Marking key as trusted")
(pipe:do
(pipe:echo "A0FF4590BB6122EDEF6E3C542D727CC768697734:6:\n")
(pipe:spawn `(,(tool 'gpg) --import-ownertrust))))
(stop-agent))
;; Initialize the test environment, install appropriate configuration