diff options
| author | Justus Winter <[email protected]> | 2016-07-22 15:42:17 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2016-07-22 15:42:17 +0000 |
| commit | 9ee23a715d5dad6bf568a2deb1c55bf15601cf51 (patch) | |
| tree | 1970d9657f3d0e9613a3142ebf183db64022ed6b | |
| parent | g10: Properly ignore legacy keys in the keyring cache. (diff) | |
| download | gnupg-9ee23a715d5dad6bf568a2deb1c55bf15601cf51.tar.gz gnupg-9ee23a715d5dad6bf568a2deb1c55bf15601cf51.zip | |
gpgscm: Make function more general.
* tests/gpgscm/tests.scm (in-srcdir): Accept more path fragments.
Signed-off-by: Justus Winter <[email protected]>
Diffstat (limited to '')
| -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. |