~ruther/guix-local

81dbd783bd9afabd1d8720c9b60a6a93492bb581 — Ludovic Courtès 13 years ago 0afdc48
tests: Run without substitutes.

* tests/builders.scm, tests/derivations.scm, tests/packages.scm: Set
  #:use-substitutes? #f for %STORE.
3 files changed, 11 insertions(+), 0 deletions(-)

M tests/builders.scm
M tests/derivations.scm
M tests/packages.scm
M tests/builders.scm => tests/builders.scm +4 -0
@@ 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.

M tests/derivations.scm => tests/derivations.scm +3 -0
@@ 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)))

M tests/packages.scm => tests/packages.scm +4 -0
@@ 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.