mirror of
git://git.gnupg.org/gnupg.git
synced 2025-07-02 22:46:30 +02:00
gpgscm: Capture output of spawned processes.
* tests/gpgscm/tests.scm (call-check): Capture stdout and stderr, and return stdout if the child exited successfully, or include stderr in the error. * tests/openpgp/version.scm: Demonstrate this by checking the stdout. Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
511c2522b9
commit
2f61aa0ff1
2 changed files with 8 additions and 6 deletions
|
@ -20,6 +20,5 @@
|
|||
(load (with-path "defs.scm"))
|
||||
|
||||
(info "Printing the GPG version")
|
||||
(assert (= 0 (call `(,@GPG --version))))
|
||||
|
||||
;; fixme: check that the output is as expected
|
||||
(assert (string-contains? (call-check `(,@GPG --version))
|
||||
"gpg (GnuPG) 2."))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue