ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: cssc: Use 'modify-phases'.

Browse source 
* gnu/packages/version-control.scm (cssc)[arguments]: Use 'modify-phases'.
This commit is contained in:
Efraim Flashner 2016-07-22 15:56:21 +03:00
parent 7c5a145414
commit bf3c57ff2d
No known key found for this signature in database
GPG key ID: F4C1D3917EACEE93
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/version-control.scm
View file

@ -898,23 +898,23 @@ (define-public cssc
"cssc-missing-include.patch")))) "cssc-missing-include.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (alist-cons-before `(#:phases
'check 'precheck (modify-phases %standard-phases
(lambda _ (add-before 'check 'precheck
(begin (lambda _
(substitute* "tests/common/test-common" (begin
(("/bin/pwd") (which "pwd"))) (substitute* "tests/common/test-common"
(("/bin/pwd") (which "pwd")))
(substitute* "tests/prt/all-512.sh" (substitute* "tests/prt/all-512.sh"
(("/bin/sh") (which "sh"))) (("/bin/sh") (which "sh")))
;; XXX: This test has no hope of passing until there is a "nogroup" ;; XXX: This test has no hope of passing until there is a "nogroup"
;; entry (or at least some group to which the guix builder does ;; entry (or at least some group to which the guix builder does
;; not belong) in the /etc/group file of the build environment. ;; not belong) in the /etc/group file of the build environment.
;; Currently we do not have such a group. Disable this test for now. ;; Currently we do not have such a group. Disable this test for now.
(substitute* "tests/Makefile" (substitute* "tests/Makefile"
(("test-delta ") "")))) (("test-delta ") ""))))))))
%standard-phases)))
;; These are needed for the tests ;; These are needed for the tests
(native-inputs `(("git" ,git) (native-inputs `(("git" ,git)
("cvs" ,cvs))) ("cvs" ,cvs)))