TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gnu: mcron: Use gexps and strip trailing #t.

Browse source 
* gnu/packages/guile-xyz.scm (mcron)
[phases]: Use gexps and strip trailing #t.
This commit is contained in:
Maxim Cournoyer 2022-10-28 23:04:36 -04:00
parent 9b21cd2e9a
commit 3d8a331518
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 19 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
gnu/packages/guile-xyz.scm
View file

@ -2714,27 +2714,26 @@ (define-public mcron
"0bkn235g2ia4f7ispr9d55c7bc18282r3qd8ldhh5q2kiin75zi0"))))
(build-system gnu-build-system)
(arguments
'(#:phases (modify-phases %standard-phases
(add-before 'check 'adjust-tests
(lambda _
(substitute* "tests/job-specifier.scm"
;; (getpw) fails with "entry not found" in the build
;; environment, so pass an argument.
(("\\(getpw\\)")
"(getpwnam (getuid))")
;; The build environment lacks an entry for root in
;; /etc/passwd.
(("\\(getpw 0\\)")
"(getpwnam \"nobody\")")
(list
#:phases #~(modify-phases %standard-phases
(add-before 'check 'adjust-tests
(lambda _
(substitute* "tests/job-specifier.scm"
;; (getpw) fails with "entry not found" in the build
;; environment, so pass an argument.
(("\\(getpw\\)")
"(getpwnam (getuid))")
;; The build environment lacks an entry for root in
;; /etc/passwd.
(("\\(getpw 0\\)")
"(getpwnam \"nobody\")")
;; FIXME: Skip the 4 faulty tests (see above).
(("\\(test-equal \"next-year\"" all)
(string-append "(test-skip 4)\n" all))))))))
(native-inputs (list guile-3.0 ;for 'guild compile'
pkg-config
tzdata-for-tests))
;; FIXME: Skip the 4 faulty tests (see above).
(("\\(test-equal \"next-year\"" all)
(string-append "(test-skip 4)\n" all)))
#t)))))
(native-inputs `(("pkg-config" ,pkg-config)
("tzdata" ,tzdata-for-tests)
("guile-native" ;for 'guild compile'
,@(assoc-ref (package-inputs this-package) "guile"))))
(inputs (list guile-3.0))
(home-page "https://www.gnu.org/software/mcron/")
(synopsis "Run jobs at scheduled times")