diff options
| author | Justus Winter <justus@g10code.com> | 2016-07-22 17:42:17 +0200 |
|---|---|---|
| committer | Justus Winter <justus@g10code.com> | 2016-07-22 17:42:17 +0200 |
| commit | 9ee23a715d5dad6bf568a2deb1c55bf15601cf51 (patch) | |
| tree | 1970d9657f3d0e9613a3142ebf183db64022ed6b /tests | |
| parent | g10: Properly ignore legacy keys in the keyring cache. (diff) | |
| download | gnupg2-9ee23a715d5dad6bf568a2deb1c55bf15601cf51.tar.xz gnupg2-9ee23a715d5dad6bf568a2deb1c55bf15601cf51.zip | |
gpgscm: Make function more general.
* tests/gpgscm/tests.scm (in-srcdir): Accept more path fragments.
Signed-off-by: Justus Winter <justus@g10code.com>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gpgscm/tests.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/gpgscm/tests.scm b/tests/gpgscm/tests.scm index 58b1430f8..e14e0e3b0 100644 --- a/tests/gpgscm/tests.scm +++ b/tests/gpgscm/tests.scm @@ -180,8 +180,8 @@ 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. |