tests: foreign: Parameterize root partition device.

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

Change-Id: I68bddaa25e9ba4131fc10366efed6772a3586a31

1 files changed, 6 insertions, 3 deletions

diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm
index 5509a7d6198..0c321693feb 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