diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-08 12:27:28 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-08 12:42:41 +0200 |
| commit | 9cfd889f1d0135d20d3aad13fac5c1a9401c06fd (patch) | |
| tree | 603f983a340ed7c6923016637bab2e11ea59e773 /gnu | |
| parent | a328f66a9e16d7bae765d8bc088e4a97037e6e2b (diff) | |
tests: Mark VM images as non-substitutable.
* gnu/tests/install.scm (run-install): Pass #:substitutable? to
'system-disk-image' and to 'gexp->derivation'.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/tests/install.scm | 7 |
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 |