diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-11-23 03:52:07 +0100 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2020-11-23 05:44:10 +0100 |
| commit | 70303d073a4f9e9d9fdfa309c6fc350e80b63a60 (patch) | |
| tree | 02b7e0163abec8bf255db7368232b9d30eb8b1a3 | |
| parent | 518b21e058f9ccf23257a2afe1bbace280c5fe1d (diff) | |
| download | guix-70303d073a4f9e9d9fdfa309c6fc350e80b63a60.tar.gz | |
gnu: lsof: Respect #:tests?.
* gnu/packages/lsof.scm (lsof)[arguments]: The 'check phase takes and respects a TESTS? keyword.
| -rw-r--r-- | gnu/packages/lsof.scm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gnu/packages/lsof.scm b/gnu/packages/lsof.scm index ad3dfbd2df..0421ca7e9d 100644 --- a/gnu/packages/lsof.scm +++ b/gnu/packages/lsof.scm @@ -79,15 +79,16 @@ (("(OPTTST=.*) LTnfs" _ prefix) prefix)) #t)) (replace 'check - (lambda _ - (with-directory-excursion "tests" - ;; Tests refuse to run on ‘unvalidated’ platforms. - (make-file-writable "TestDB") - (invoke "./Add2TestDB") + (lambda* (#:key tests? #:allow-other-keys) + (when tests? + (with-directory-excursion "tests" + ;; Tests refuse to run on ‘unvalidated’ platforms. + (make-file-writable "TestDB") + (invoke "./Add2TestDB") - ;; The ‘standard’ tests suggest running ‘optional’ ones as well. - (invoke "make" "standard" "optional") - #t))) + ;; The ‘standard’ tests suggest running ‘optional’ ones as well. + (invoke "make" "standard" "optional"))) + #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) |