diff options
| author | Justus Winter <[email protected]> | 2016-07-07 14:18:10 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-07-07 14:18:10 +0000 |
| commit | 2f61aa0ff11b194d20307751ab686c87cd47dd56 (patch) | |
| tree | 1cbfefe68e09d55748f62efaac24c4f0e28dc454 /tests/openpgp/version.scm | |
| parent | doc: Escape file names in generated macros. (diff) | |
| download | gnupg-2f61aa0ff11b194d20307751ab686c87cd47dd56.tar.gz gnupg-2f61aa0ff11b194d20307751ab686c87cd47dd56.zip | |
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 <[email protected]>
Diffstat (limited to 'tests/openpgp/version.scm')
| -rwxr-xr-x | tests/openpgp/version.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/tests/openpgp/version.scm b/tests/openpgp/version.scm index dbcb484e8..57efb937b 100755 --- a/tests/openpgp/version.scm +++ b/tests/openpgp/version.scm @@ -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.")) |