security-and-privacy/gnupg
security-and-privacy/gnupg
1
0
Fork 0
mirror of git://git.gnupg.org/gnupg.git synced 2025-04-17 15:44:34 +02:00
Code Activity

gpgscm: Make function more general.

Browse Source 
* tests/gpgscm/tests.scm (in-srcdir): Accept more path fragments.

Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
Justus Winter 2016-07-22 17:42:17 +02:00
parent d9839c9d30
commit 9ee23a715d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/gpgscm/tests.scm
View File

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