nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
gnu/packages/gnupg.scm
View File

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