mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
tests: Run without substitutes.
* tests/builders.scm, tests/derivations.scm, tests/packages.scm: Set #:use-substitutes? #f for %STORE.
This commit is contained in:
@@ -34,6 +34,10 @@
|
||||
(define %store
|
||||
(false-if-exception (open-connection)))
|
||||
|
||||
(when %store
|
||||
;; Make sure we build everything by ourselves.
|
||||
(set-build-options %store #:use-substitutes? #f))
|
||||
|
||||
(define %bootstrap-inputs
|
||||
;; Use the bootstrap inputs so it doesn't take ages to run these tests.
|
||||
;; This still involves building Make, Diffutils, and Findutils.
|
||||
|
||||
@@ -39,6 +39,9 @@
|
||||
(false-if-exception (open-connection)))
|
||||
|
||||
(when %store
|
||||
;; Make sure we build everything by ourselves.
|
||||
(set-build-options %store #:use-substitutes? #f)
|
||||
|
||||
;; By default, use %BOOTSTRAP-GUILE for the current system.
|
||||
(let ((drv (package-derivation %store %bootstrap-guile)))
|
||||
(%guile-for-build drv)))
|
||||
|
||||
@@ -35,6 +35,10 @@
|
||||
(define %store
|
||||
(false-if-exception (open-connection)))
|
||||
|
||||
(when %store
|
||||
;; Make sure we build everything by ourselves.
|
||||
(set-build-options %store #:use-substitutes? #f))
|
||||
|
||||
(define %bootstrap-inputs
|
||||
;; Use the bootstrap inputs so it doesn't take ages to run these tests.
|
||||
;; This still involves building GNU Make and GNU Diffutils.
|
||||
|
||||
Reference in New Issue
Block a user