gpgscm: Generalize the test runner.
authorJustus Winter <justus@g10code.com>
Thu, 17 Nov 2016 10:06:42 +0000 (11:06 +0100)
committerJustus Winter <justus@g10code.com>
Tue, 13 Dec 2016 14:09:26 +0000 (15:09 +0100)
* 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 <justus@g10code.com>
tests/gpgscm/tests.scm
tests/openpgp/run-tests.scm

index dd4c69f..b5df9b7 100644 (file)
 ;; 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
index a7c282e..4146411 100644 (file)
@@ -30,4 +30,5 @@
                   run-tests-parallel
                   run-tests-sequential))
        (tests (filter (lambda (arg) (not (string-prefix? arg "--"))) *args*)))
-  (runner (test::scm "setup.scm") (map test::scm tests)))
+  (runner (test::scm "setup.scm" "setup.scm")
+         (map (lambda (t) (test::scm t t)) tests)))