diff options
| -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 |