aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-04-08 12:27:28 +0200
committerLudovic Courtès <ludo@gnu.org>2020-04-08 12:42:41 +0200
commit9cfd889f1d0135d20d3aad13fac5c1a9401c06fd (patch)
tree603f983a340ed7c6923016637bab2e11ea59e773
parenta328f66a9e16d7bae765d8bc088e4a97037e6e2b (diff)
downloadguix-9cfd889f1d0135d20d3aad13fac5c1a9401c06fd.tar
guix-9cfd889f1d0135d20d3aad13fac5c1a9401c06fd.tar.gz
tests: Mark VM images as non-substitutable.
* gnu/tests/install.scm (run-install): Pass #:substitutable? to 'system-disk-image' and to 'gexp->derivation'.
-rw-r--r--gnu/tests/install.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm
index b0b40f2764..799a65907b 100644
--- a/gnu/tests/install.scm
+++ b/gnu/tests/install.scm
@@ -232,7 +232,9 @@ packages defined in installation-os."
os (list target))
#:disk-image-size install-size
#:file-system-type
- installation-disk-image-file-system-type)))
+ installation-disk-image-file-system-type
+ ;; Don't provide substitutes; too big.
+ #:substitutable? #f)))
(define install
(with-imported-modules '((guix build utils)
(gnu build marionette))
@@ -296,7 +298,8 @@ packages defined in installation-os."
(exit #$(and gui-test
(gui-test #~marionette)))))))
- (gexp->derivation "installation" install)))
+ (gexp->derivation "installation" install
+ #:substitutable? #f))) ;too big
(define* (qemu-command/writable-image image #:key (memory-size 256))
"Return as a monadic value the command to run QEMU on a writable copy of