ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-18 12:47:33 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: icedtea-7: Run tests conditionally.

Browse source 
* gnu/packages/java.scm (icedtea-7)[arguments]: Respect TESTS? in 'check
phase.
This commit is contained in:
Ricardo Wurmus 2021-12-16 09:15:25 +01:00
parent 35bac40a67
commit 9e6baab2d8
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 18 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/packages/java.scm
View file

@ -1618,10 +1618,11 @@ (define-public icedtea-7
(("/bin/sh") (which "sh")))) (("/bin/sh") (which "sh"))))
#t)) #t))
(replace 'check (replace 'check
(lambda _ (lambda* (#:key tests? #:allow-other-keys)
;; The "make check-*" targets always return zero, so we need to ;; The "make check-*" targets always return zero, so we need to
;; check for errors in the associated log files to determine ;; check for errors in the associated log files to determine
;; whether any tests have failed. ;; whether any tests have failed.
(when tests?
(use-modules (ice-9 rdelim)) (use-modules (ice-9 rdelim))
(let* ((error-pattern (make-regexp "^(Error|FAILED):.*")) (let* ((error-pattern (make-regexp "^(Error|FAILED):.*"))
(checker (lambda (port) (checker (lambda (port)
@ -1637,11 +1638,9 @@ (define-public icedtea-7
(call-with-input-file (call-with-input-file
(string-append "test/" test ".log") (string-append "test/" test ".log")
checker)))) checker))))
(when #f ; skip tests
(run-test "check-hotspot") (run-test "check-hotspot")
(run-test "check-langtools") (run-test "check-langtools")
(run-test "check-jdk")) (run-test "check-jdk")))))
#t)))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((doc (string-append (assoc-ref outputs "doc") (let ((doc (string-append (assoc-ref outputs "doc")