diff options
| author | Justus Winter <[email protected]> | 2017-04-20 09:49:17 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-04-24 12:14:08 +0000 |
| commit | 679920781a25ae5c0e49d4bd78e6926fd661778f (patch) | |
| tree | 8bc1e10dd8e2bdb6c03382e7b506baeb002ef3d8 | |
| parent | gpgscm: Make test framework less functional. (diff) | |
| download | gnupg-679920781a25ae5c0e49d4bd78e6926fd661778f.tar.gz gnupg-679920781a25ae5c0e49d4bd78e6926fd661778f.zip | |
gpgscm: Make logging less verbose and more useful.
* tests/gpgscm/tests.scm (call-with-io): When being verbose, include
the pid in the output, and avoid duplicating the command arguments.
Signed-off-by: Justus Winter <[email protected]>
| -rw-r--r-- | tests/gpgscm/tests.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index c09821826..b2dcc54e2 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -104,10 +104,11 @@ (es-fclose (:stdout h)) (es-fclose (:stderr h)) (if (> (*verbose*) 2) - (begin - (echo (stringify what) "returned:" result) - (echo (stringify what) "wrote to stdout:" out) - (echo (stringify what) "wrote to stderr:" err))) + (info "Child" (:pid h) "returned:" + `((command ,(stringify what)) + (status ,result) + (stdout ,out) + (stderr ,err)))) (list result out err)))) ;; Accessor function for the results of 'call-with-io'. ':stdout' and |