diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2025-07-14 18:40:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-07-18 00:43:50 +0200 |
| commit | bf79804508b04b95333478f1533f0b2dcb05f8ec (patch) | |
| tree | 5df12eb82a1d8790d255ce5c1a351a523a5f91dc | |
| parent | 9596822a6c1bf2394f0f99f9d76fda20ddb595e0 (diff) | |
tests: foreign: Parameterize root partition device.
* gnu/tests/foreign.scm (run-foreign-install-test): Add #:device
parameter and honor it.
Change-Id: I68bddaa25e9ba4131fc10366efed6772a3586a31
| -rw-r--r-- | gnu/tests/foreign.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm index 5509a7d619..0c321693fe 100644 --- a/gnu/tests/foreign.scm +++ b/gnu/tests/foreign.scm @@ -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 |