me/guix
Archived
1
0
Fork 0
Code Activity

tests: Mark VM images as non-substitutable.

Browse source 
* gnu/tests/install.scm (run-install): Pass #:substitutable? to
'system-disk-image' and to 'gexp->derivation'.
This commit is contained in:
Ludovic Courtès 2020-04-08 12:27:28 +02:00
parent a328f66a9e
commit 9cfd889f1d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gnu/tests/install.scm
View file

@ -232,7 +232,9 @@ packages defined in installation-os."
os (list target)) os (list target))
#:disk-image-size install-size #:disk-image-size install-size
#:file-system-type #: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 (define install
(with-imported-modules '((guix build utils) (with-imported-modules '((guix build utils)
(gnu build marionette)) (gnu build marionette))
@ -296,7 +298,8 @@ packages defined in installation-os."
(exit #$(and gui-test (exit #$(and gui-test
(gui-test #~marionette))))))) (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)) (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 "Return as a monadic value the command to run QEMU on a writable copy of