gnu: gnupg: Clean up arguments.

* gnu/packages/gnupg.scm (gnupg)[arguments]: Shorten the
'patch-test-paths phase.
This commit is contained in:
Efraim Flashner 2017-08-28 17:14:16 +03:00
parent e184de5748
commit 92cc6a5801
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 12 additions and 20 deletions

View File

@ -250,26 +250,18 @@ compatible to GNU Pth.")
(string-append (getcwd) "/tests/gpgscm/gpgscm")))
#t))
(add-before 'build 'patch-test-paths
(lambda* (#:key inputs #:allow-other-keys)
(let* ((coreutils (assoc-ref inputs "coreutils"))
(cat (string-append coreutils "/bin/cat"))
(pwd (string-append coreutils "/bin/pwd"))
(true (string-append coreutils "/bin/true"))
(false (string-append coreutils "/bin/false")))
(lambda _
(substitute* '("tests/inittests"
"tests/pkits/inittests"
"tests/Makefile"
"tests/pkits/common.sh"
"tests/pkits/Makefile"
)
(("/bin/pwd") pwd))
"tests/pkits/Makefile")
(("/bin/pwd") (which "pwd")))
(substitute* "common/t-exectool.c"
(("/bin/cat") cat))
(substitute* "common/t-exectool.c"
(("/bin/true") true))
(substitute* "common/t-exectool.c"
(("/bin/false") false))
#t))))))
(("/bin/cat") (which "cat"))
(("/bin/true") (which "true"))
(("/bin/false") (which "false")))
#t)))))
(home-page "https://gnupg.org/")
(synopsis "GNU Privacy Guard")
(description