Setup (gnu tests install) for build test.

Change-Id: I0b6adc4b6adee6b2dc92deb34b6cbca74cf8b3da
This commit is contained in:
Herman Rimm 2024-09-29 20:29:43 +02:00 committed by Ryan Schanzenbacher
parent 3bb77e73e1
commit e1be617efe
Signed by: ryan77627
GPG key ID: 81B0E222A3E2308E

View file

@ -23,6 +23,7 @@
(define-module (gnu tests install) (define-module (gnu tests install)
#:use-module (gnu) #:use-module (gnu)
#:use-module (gnu bootloader grub)
#:use-module (gnu bootloader extlinux) #:use-module (gnu bootloader extlinux)
#:use-module (gnu image) #:use-module (gnu image)
#:use-module (gnu tests) #:use-module (gnu tests)
@ -46,6 +47,7 @@ (define-module (gnu tests install)
#:use-module (gnu packages openbox) #:use-module (gnu packages openbox)
#:use-module (gnu packages package-management) #:use-module (gnu packages package-management)
#:use-module (gnu packages ratpoison) #:use-module (gnu packages ratpoison)
#:use-module (gnu packages screen)
#:use-module (gnu packages suckless) #:use-module (gnu packages suckless)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
#:use-module (gnu packages wm) #:use-module (gnu packages wm)
@ -94,7 +96,7 @@ (define-module (gnu tests install)
(define-os-with-source (%minimal-os %minimal-os-source) (define-os-with-source (%minimal-os %minimal-os-source)
;; The OS we want to install. ;; 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 (operating-system
(host-name "liberigilo") (host-name "liberigilo")
@ -102,11 +104,17 @@ (define-os-with-source (%minimal-os %minimal-os-source)
(locale "en_US.UTF-8") (locale "en_US.UTF-8")
(bootloader (bootloader-configuration (bootloader (bootloader-configuration
(theme (grub-theme (image #f)))
(bootloader grub-bootloader) (bootloader grub-bootloader)
(targets (list (bootloader-target (targets (list (bootloader-target
(type 'disk) (type 'disk)
(device "/dev/vdb")))))) (device "/dev/vdb"))))))
(kernel-arguments '("console=ttyS0")) (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 (file-systems (cons (file-system
(device (file-system-label "my-root")) (device (file-system-label "my-root"))
(mount-point "/") (mount-point "/")