diff options
| author | Marius Bakke <mbakke@fastmail.com> | 2020-04-25 22:17:07 +0200 |
|---|---|---|
| committer | Marius Bakke <mbakke@fastmail.com> | 2020-04-26 00:51:12 +0200 |
| commit | 0e72d49ef7cb7463012704b3d107fe38b085a562 (patch) | |
| tree | 09586a94ceb3d256f5317b96c190d5b2e1aa7c78 | |
| parent | d2fc76462e72268ee5b04fe53805efc05c35e139 (diff) | |
| download | patches-0e72d49ef7cb7463012704b3d107fe38b085a562.tar patches-0e72d49ef7cb7463012704b3d107fe38b085a562.tar.gz | |
tests: Add 'guile-final' to the installation test GC roots.
* gnu/tests/install.scm (run-install): Add GUILE-FINAL to
OPERATING-SYSTEM-WITH-GC-ROOTS.
| -rw-r--r-- | gnu/tests/install.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm index 713e03194b..1b113602ed 100644 --- a/gnu/tests/install.scm +++ b/gnu/tests/install.scm @@ -29,6 +29,7 @@ #:use-module ((gnu build vm) #:select (qemu-command)) #:use-module (gnu packages admin) #:use-module (gnu packages bootloaders) + #:use-module (gnu packages commencement) ;for 'guile-final' #:use-module (gnu packages cryptsetup) #:use-module (gnu packages linux) #:use-module (gnu packages ocr) @@ -226,10 +227,11 @@ packages defined in installation-os." ;; Since the installation system has no network access, ;; we cheat a little bit by adding TARGET to its GC ;; roots. This way, we know 'guix system init' will - ;; succeed. + ;; succeed. Also add guile-final, which is pulled in + ;; through provenance.drv and may not always be present. (image (system-disk-image (operating-system-with-gc-roots - os (list target)) + os (list target guile-final)) #:disk-image-size install-size #:file-system-type installation-disk-image-file-system-type |