From 0e72d49ef7cb7463012704b3d107fe38b085a562 Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Sat, 25 Apr 2020 22:17:07 +0200 Subject: 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. --- gnu/tests/install.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gnu/tests') 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 @@ (define-module (gnu tests install) #: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 @@ (define* (run-install target-os target-os-source ;; 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 -- cgit v1.2.3