diff --git a/gnu/tests/install.scm b/gnu/tests/install.scm index 87eb2bf7fe..aa4bbf9d0e 100644 --- a/gnu/tests/install.scm +++ b/gnu/tests/install.scm @@ -23,6 +23,7 @@ (define-module (gnu tests install) #:use-module (gnu) + #:use-module (gnu bootloader grub) #:use-module (gnu bootloader extlinux) #:use-module (gnu image) #:use-module (gnu tests) @@ -46,6 +47,7 @@ (define-module (gnu tests install) #:use-module (gnu packages openbox) #:use-module (gnu packages package-management) #:use-module (gnu packages ratpoison) + #:use-module (gnu packages screen) #:use-module (gnu packages suckless) #:use-module (gnu packages virtualization) #:use-module (gnu packages wm) @@ -94,7 +96,7 @@ (define-module (gnu tests install) (define-os-with-source (%minimal-os %minimal-os-source) ;; The OS we want to install. - (use-modules (gnu) (gnu tests) (srfi srfi-1)) + (use-modules (gnu) (gnu system) (gnu tests) (gnu packages screen) (srfi srfi-1)) (operating-system (host-name "liberigilo") @@ -102,11 +104,17 @@ (define-os-with-source (%minimal-os %minimal-os-source) (locale "en_US.UTF-8") (bootloader (bootloader-configuration + (theme (grub-theme (image #f))) (bootloader grub-bootloader) (targets (list (bootloader-target (type 'disk) (device "/dev/vdb")))))) (kernel-arguments '("console=ttyS0")) + (packages (append (list screen) + %base-packages-interactive + %base-packages-linux + %base-packages-networking + %base-packages-utils)) (file-systems (cons (file-system (device (file-system-label "my-root")) (mount-point "/")