diff options
Diffstat (limited to 'tests/gpgscm/tests.scm')
| -rw-r--r-- | tests/gpgscm/tests.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index dd4c69fbf..b5df9b7b4 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/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 |