guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: gnu: oil: Respect #:tests?.


From: guix-commits
Subject: 02/02: gnu: oil: Respect #:tests?.
Date: Sun, 25 Jul 2021 10:40:26 -0400 (EDT)

arunisaac pushed a commit to branch master
in repository guix.

commit ed9d14673471b0f2f8425ae359c8d3c27aec545d
Author: Arun Isaac <arunisaac@systemreboot.net>
AuthorDate: Sun Jul 25 20:03:10 2021 +0530

    gnu: oil: Respect #:tests?.
    
    * gnu/packages/shells.scm (oil)[arguments]: Respect #:tests? in the custom
    check phase.
---
 gnu/packages/shells.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/shells.scm b/gnu/packages/shells.scm
index 1bfc2ba..d51c67f 100644
--- a/gnu/packages/shells.scm
+++ b/gnu/packages/shells.scm
@@ -8,7 +8,7 @@
 ;;; Copyright © 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2017, 2018 Nikita <nikita@n0.is>
 ;;; Copyright © 2017, 2018 Leo Famulari <leo@famulari.name>
-;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2017, 2021 Arun Isaac <arunisaac@systemreboot.net>
 ;;; Copyright © 2019 Meiyo Peng <meiyo.peng@gmail.com>
 ;;; Copyright © 2019 Timothy Sample <samplet@ngyro.com>
 ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
@@ -855,11 +855,11 @@ Shell (pdksh).")
            ;; The tests are not distributed in the tarballs but upstream
            ;; recommends running this smoke test.
            ;; 
https://github.com/oilshell/oil/blob/release/0.8.0/INSTALL.txt#L38-L48
-           (lambda _
-             (let* ((oil "_bin/oil.ovm"))
-               (invoke/quiet oil "osh" "-c" "echo hi")
-               (invoke/quiet oil "osh" "-n" "configure")
-               #t))))))
+           (lambda* (#:key tests? #:allow-other-keys)
+             (when tests?
+               (let* ((oil "_bin/oil.ovm"))
+                 (invoke/quiet oil "osh" "-c" "echo hi")
+                 (invoke/quiet oil "osh" "-n" "configure"))))))))
     (inputs
      `(("readline" ,readline)))
     (home-page "https://www.oilshell.org";)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]