From 679920781a25ae5c0e49d4bd78e6926fd661778f Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Thu, 20 Apr 2017 11:49:17 +0200 Subject: [PATCH] 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 --- tests/gpgscm/tests.scm | 9 +++++---- 1 file 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