tests: Run without substitutes.

* tests/builders.scm, tests/derivations.scm, tests/packages.scm: Set
  #:use-substitutes? #f for %STORE.
This commit is contained in:
Ludovic Courtès 2012-11-02 22:38:52 +01:00
parent 0afdc48532
commit 81dbd783bd
3 changed files with 11 additions and 0 deletions

View File

@ -34,6 +34,10 @@
(define %store (define %store
(false-if-exception (open-connection))) (false-if-exception (open-connection)))
(when %store
;; Make sure we build everything by ourselves.
(set-build-options %store #:use-substitutes? #f))
(define %bootstrap-inputs (define %bootstrap-inputs
;; Use the bootstrap inputs so it doesn't take ages to run these tests. ;; Use the bootstrap inputs so it doesn't take ages to run these tests.
;; This still involves building Make, Diffutils, and Findutils. ;; This still involves building Make, Diffutils, and Findutils.

View File

@ -39,6 +39,9 @@
(false-if-exception (open-connection))) (false-if-exception (open-connection)))
(when %store (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. ;; By default, use %BOOTSTRAP-GUILE for the current system.
(let ((drv (package-derivation %store %bootstrap-guile))) (let ((drv (package-derivation %store %bootstrap-guile)))
(%guile-for-build drv))) (%guile-for-build drv)))

View File

@ -35,6 +35,10 @@
(define %store (define %store
(false-if-exception (open-connection))) (false-if-exception (open-connection)))
(when %store
;; Make sure we build everything by ourselves.
(set-build-options %store #:use-substitutes? #f))
(define %bootstrap-inputs (define %bootstrap-inputs
;; Use the bootstrap inputs so it doesn't take ages to run these tests. ;; Use the bootstrap inputs so it doesn't take ages to run these tests.
;; This still involves building GNU Make and GNU Diffutils. ;; This still involves building GNU Make and GNU Diffutils.