gpgscm: Make function more general.
authorJustus Winter <justus@g10code.com>
Fri, 22 Jul 2016 15:42:17 +0000 (17:42 +0200)
committerJustus Winter <justus@g10code.com>
Fri, 22 Jul 2016 15:42:17 +0000 (17:42 +0200)
* tests/gpgscm/tests.scm (in-srcdir): Accept more path fragments.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/tests.scm

index 58b1430..e14e0e3 100644 (file)
       path
       (string-append (getcwd) "/" path)))
 
-(define (in-srcdir what)
-  (canonical-path (string-append (getenv "srcdir") "/" what)))
+(define (in-srcdir . names)
+  (canonical-path (apply path-join (cons (getenv "srcdir") names))))
 
 ;; Try to find NAME in PATHS.  Returns the full path name on success,
 ;; or raises an error.