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

distro: attr: Fix references to /bin/sh.

Browse source 
* distro/packages/attr.scm (attr): Add `patch-makefile-SHELL'.  Patch
  `test/run' in `check' phase.
This commit is contained in:
Ludovic Courtès 2012-12-21 23:52:48 +01:00
parent c089511288
commit 380d5decfc
1 changed files with 27 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
distro/packages/attr.scm
View file

@ -41,23 +41,34 @@ (define-public attr
(build-system gnu-build-system)
(arguments
`(#:phases
(alist-replace 'install
(lambda _
(zero? (system* "make"
"install"
"install-lib"
"install-dev")))
(alist-replace 'check
(lambda _
(for-each patch-shebang
(find-files "test" ".*"))
(system* "make" "tests" "-C" "test")
(alist-cons-after
'configure 'patch-makefile-SHELL
(lambda _
(patch-makefile-SHELL "include/buildmacros"))
(alist-replace
'install
(lambda _
(zero? (system* "make"
"install"
"install-lib"
"install-dev")))
(alist-replace
'check
(lambda _
;; Use the right shell.
(let ((bash (search-path (search-path-as-string->list
(getenv "PATH"))
"bash")))
(substitute* "test/run"
(("/bin/sh")
(string-append bash "/bin/bash"))))
;; XXX: Ignore the test result since
;; this is dependent on the underlying
;; file system.
#t)
%standard-phases))))
(system* "make" "tests" "-C" "test")
;; XXX: Ignore the test result since this is dependent on the
;; underlying file system.
#t)
%standard-phases)))))
(inputs `(("perl" ,perl)
("gettext" ,guix:gettext)))
(home-page