From a3e51fab6b30774959dc7d4d3409000fdbe1f7b3 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Thu, 20 Apr 2017 11:49:17 +0200 Subject: 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.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/tests.scm b/tests.scm index c098218..b2dcc54 100644 --- a/tests.scm +++ b/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 -- cgit v1.2.3