diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-03-23 01:53:23 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-03-23 04:41:35 -0400 |
| commit | f97cb24967c2787034c3d9a5fce2cf4c1b0c0b3a (patch) | |
| tree | 759561d749a0d0645860526cffcf026195c2a663 | |
| parent | fac441b365f998fc72208ef07612dc22d545020d (diff) | |
gnu: dejagnu: Return #t from all phases.
* gnu/packages/dejagnu.scm (dejagnu)[arguments]: Return #t from all phases.
Raise an exception if make check fails.
| -rw-r--r-- | gnu/packages/dejagnu.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gnu/packages/dejagnu.scm b/gnu/packages/dejagnu.scm index 05825bad8f..f2aca50f1a 100644 --- a/gnu/packages/dejagnu.scm +++ b/gnu/packages/dejagnu.scm @@ -1,6 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flasher.co.il> +;;; Copyright © 2018 Mark H Weaver <mhw@netris.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -57,11 +58,10 @@ ;; The test-suite needs to have a non-empty stdin: ;; <http://lists.gnu.org/archive/html/bug-dejagnu/2003-06/msg00002.html>. - (zero? - (system "make check < /dev/zero"))) - (begin - (display "test suite cannot be run, skipping\n") - #t)))) + (unless (zero? (system "make check < /dev/zero")) + (error "make check failed"))) + (display "test suite cannot be run, skipping\n")) + #t)) (add-after 'install 'post-install (lambda* (#:key inputs outputs #:allow-other-keys) ;; Use the right `expect' binary. @@ -71,7 +71,8 @@ (("^mypath.*$" all) (string-append all "export PATH=" - expect "/bin:$PATH\n"))))))))) + expect "/bin:$PATH\n"))) + #t)))))) (home-page "https://www.gnu.org/software/dejagnu/") (synopsis "GNU software testing framework") |