me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Mark H Weaver 2018-03-23 01:53:23 -04:00
parent fac441b365
commit f97cb24967
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/packages/dejagnu.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flasher.co.il> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flasher.co.il>
;;; Copyright © 2018 Mark H Weaver <mhw@netris.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -57,11 +58,10 @@
;; The test-suite needs to have a non-empty stdin: ;; The test-suite needs to have a non-empty stdin:
;; <http://lists.gnu.org/archive/html/bug-dejagnu/2003-06/msg00002.html>. ;; <http://lists.gnu.org/archive/html/bug-dejagnu/2003-06/msg00002.html>.
(zero? (unless (zero? (system "make check < /dev/zero"))
(system "make check < /dev/zero"))) (error "make check failed")))
(begin (display "test suite cannot be run, skipping\n"))
(display "test suite cannot be run, skipping\n") #t))
#t))))
(add-after 'install 'post-install (add-after 'install 'post-install
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
;; Use the right `expect' binary. ;; Use the right `expect' binary.
@ -71,7 +71,8 @@
(("^mypath.*$" all) (("^mypath.*$" all)
(string-append all (string-append all
"export PATH=" "export PATH="
expect "/bin:$PATH\n"))))))))) expect "/bin:$PATH\n")))
#t))))))
(home-page (home-page
"https://www.gnu.org/software/dejagnu/") "https://www.gnu.org/software/dejagnu/")
(synopsis "GNU software testing framework") (synopsis "GNU software testing framework")