me
/
guix
Archived
1
0
Fork 0
Code

gnu: libfaketime: Use absolute 'date' reference. 

* gnu/packages/check.scm (libfaketime)[inputs]: Add COREUTILS.
[arguments]: Add phase to substitute the absolute 'date' file name.
master
Marius Bakke 2021-05-16 11:44:36 +02:00
parent b3338f10c4
commit 46f2d25b09
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gnu/packages/check.scm
View File

@ -25,7 +25,7 @@
;;; Copyright © 2017, 2019 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2017 Nikita <nikita@n0.is> ;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2015, 2017, 2018, 2020, 2021 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2017, 2018, 2020, 2021 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Marius Bakke <marius@gnu.org>
;;; Copyright © 2017, 2018, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2017, 2018, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com> ;;; Copyright © 2018 Fis Trivial <ybbs.daans@hotmail.com>
;;; Copyright © 2019, 2021 Pierre Langlois <pierre.langlois@gmx.com> ;;; Copyright © 2019, 2021 Pierre Langlois <pierre.langlois@gmx.com>
@ -2668,6 +2668,12 @@ portable to just about any platform.")
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (modify-phases %standard-phases `(#:phases (modify-phases %standard-phases
(add-after 'unpack 'embed-date-reference
(lambda* (#:key inputs #:allow-other-keys)
(let ((coreutils (assoc-ref inputs "coreutils")))
(substitute* "src/faketime.c"
(("\"date\"")
(string-append "\"" coreutils "/bin/date\""))))))
(replace 'configure (replace 'configure
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -2684,6 +2690,8 @@ portable to just about any platform.")
#:test-target "test")) #:test-target "test"))
(native-inputs (native-inputs
`(("perl" ,perl))) ;for tests `(("perl" ,perl))) ;for tests
(inputs
`(("coreutils" ,coreutils)))
(synopsis "Fake the system time for single applications") (synopsis "Fake the system time for single applications")
(description (description
"The libfaketime library allows users to modify the system time that an "The libfaketime library allows users to modify the system time that an