tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

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
1 changed files with 6 additions and 3 deletions
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