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

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

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