lint: 'check-derivation' tries all the package's supported systems.

This allows us to catch architecture-specific evaluation failures.

* guix/scripts/lint.scm (check-derivation): Move body into...
[try]: ... this.  New procedure.
Call 'try' for each supported system of PACKAGE.
This commit is contained in:
Ludovic Courtès 2018-11-20 18:25:13 +01:00
parent 242b29baa1
commit 3b32891b12
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 31 additions and 25 deletions

View File

@ -774,30 +774,36 @@ descriptions maintained upstream."
(define (check-derivation package)
"Emit a warning if we fail to compile PACKAGE to a derivation."
(define (try system)
(catch #t
(lambda ()
(guard (c ((nix-protocol-error? c)
(emit-warning package
(format #f (G_ "failed to create derivation: ~a")
(format #f (G_ "failed to create ~a derivation: ~a")
system
(nix-protocol-error-message c))))
((message-condition? c)
(emit-warning package
(format #f (G_ "failed to create derivation: ~a")
(format #f (G_ "failed to create ~a derivation: ~a")
system
(condition-message c)))))
(with-store store
;; Disable grafts since it can entail rebuilds.
(package-derivation store package #:graft? #f)
(package-derivation store package system #:graft? #f)
;; If there's a replacement, make sure we can compute its
;; derivation.
(match (package-replacement package)
(#f #t)
(replacement
(package-derivation store replacement #:graft? #f))))))
(package-derivation store replacement system
#:graft? #f))))))
(lambda args
(emit-warning package
(format #f (G_ "failed to create derivation: ~s~%")
args)))))
(format #f (G_ "failed to create ~a derivation: ~s")
system args)))))
(for-each try (package-supported-systems package)))
(define (check-license package)
"Warn about type errors of the 'license' field of PACKAGE."

View File

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015, 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2017 Alex Kost <alezost@gmail.com>
@ -365,7 +365,7 @@
(arguments
'(#:imported-modules (invalid-module))))))
(check-derivation pkg)))
"failed to create derivation")))
"failed to create")))
(test-assert "license: invalid license"
(string-contains