From b1e67a725d17ff1605ba79d8bb61f37c4a48f0a5 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Thu, 17 Nov 2016 11:06:42 +0100 Subject: gpgscm: Generalize the test runner. * tests/gpgscm/tests.scm (test::scm) Add explicit name argument. (test::binary): Likewise. Also, add missing unquote. * tests/openpgp/run-tests.scm: Adapt accordingly. Signed-off-by: Justus Winter --- tests.scm | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/tests.scm b/tests.scm index dd4c69f..b5df9b7 100644 --- a/tests.scm +++ b/tests.scm @@ -553,18 +553,19 @@ ;; A single test. (define test (package - (define (scm path . args) + (define (scm name path . args) ;; Start the process. - (define (spawn-scm args in out err) + (define (spawn-scm args' in out err) (spawn-process-fd `(,*argv0* ,@(verbosity (*verbose*)) - ,(locate-test path) ,@args) in out err)) - (new (basename path) #f spawn-scm #f #f CLOSED_FD)) + ,(locate-test path) + ,@args' ,@args) in out err)) + (new name #f spawn-scm #f #f CLOSED_FD)) - (define (binary path . args) + (define (binary name path . args) ;; Start the process. - (define (spawn-binary args in out err) - (spawn-process-fd `(path ,@args) in out err)) - (new (basename path) #f spawn-binary #f #f CLOSED_FD)) + (define (spawn-binary args' in out err) + (spawn-process-fd `(,path ,@args' ,@args) in out err)) + (new name #f spawn-binary #f #f CLOSED_FD)) (define (new name directory spawn pid retcode logfd) (package -- cgit v1.2.3