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 | a3e51fab6b30774959dc7d4d3409000fdbe1f7b3 (patch) | |
| tree | b4e7e2474cb688a34e2332cb0330d0d3ebf184c3 | |
| parent | gpgscm: Make test framework less functional. (diff) | |
| download | libgpg-error-a3e51fab6b30774959dc7d4d3409000fdbe1f7b3.tar.gz libgpg-error-a3e51fab6b30774959dc7d4d3409000fdbe1f7b3.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.scm | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -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 |