bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-28 11:55:06 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: foreign: Parameterize root partition device.

Browse source 
* gnu/tests/foreign.scm (run-foreign-install-test): Add #:device
parameter and honor it.

Change-Id: I68bddaa25e9ba4131fc10366efed6772a3586a31
This commit is contained in:
Ludovic Courtès 2025-07-14 18:40:24 +02:00
parent 9596822a6c
commit bf79804508
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/tests/foreign.scm
View file

@ -157,12 +157,15 @@ system is expected to be on DEVICE."
;; inferiors.
(file-append (package-source guix) "/etc/guix-install.sh"))
(define (run-foreign-install-test image name)
(define* (run-foreign-install-test image name
#:key (device "/dev/vdb1"))
"Run an installation of Guix in IMAGE, the QCOW2 image of a systemd-based
GNU/Linux distro, and check that the installation is functional."
GNU/Linux distro, and check that the installation is functional. The root
partition of IMAGE is expected to be on DEVICE."
(define instrumented-image
(qcow-image-with-marionette image
#:name (string-append name ".qcow2")))
#:name (string-append name ".qcow2")
#:device device))
(define (test tarball)
(with-imported-modules (source-module-closure