futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: i2pd: Rewrite 'check phase using with-directory-excursion.

Browse Source 
* gnu/packages/i2p.scm (i2pd)[arguments]: In custom 'check phase use
with-directory-excursion to change directory.
This commit is contained in:
Efraim Flashner 2019-07-18 18:52:43 +03:00
parent 2fba90a8b2
commit 262f904ebd
No known key found for this signature in database
GPG Key ID: 41AAE7DCCA3D8351
1 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
gnu/packages/i2p.scm
View File

@ -63,20 +63,18 @@
(make-flags '())
(parallel-tests? #t)
#:allow-other-keys)
(let ((oldpwd (getcwd))
(source (assoc-ref %build-inputs "source")))
(let ((source (assoc-ref %build-inputs "source")))
(copy-recursively (string-append source "/tests")
"./tests")
(chdir "./tests")
(substitute* "Makefile"
(("../libi2pd/") (string-append source "/libi2pd/")))
(apply invoke "make" "all"
`(,@(if parallel-tests?
`("-j" ,(number->string
(parallel-job-count)))
'())
,@make-flags))
(chdir oldpwd))))
(with-directory-excursion "tests"
(substitute* "Makefile"
(("../libi2pd/") (string-append source "/libi2pd/")))
(apply invoke "make" "all"
`(,@(if parallel-tests?
`("-j" ,(number->string
(parallel-job-count)))
'())
,@make-flags))))))
(add-after 'install 'install-headers
(lambda* (#:key outputs #:allow-other-keys)
(let* ((install-dir (assoc-ref outputs "out"))