tests: foreign: Catch failure to mount distro image.

* gnu/tests/foreign.scm (qcow-image-with-marionette)[build]: Call
‘error’ when ‘mount’ exits with a non-zero code.

Change-Id: I7c608e0aa7dff1447c9df778951d7a5256e47255
This commit is contained in:
Ludovic Courtès 2025-07-14 18:36:17 +02:00
parent 8f25432f40
commit 224361d3a3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -89,8 +89,10 @@ system is expected to be on DEVICE."
",format=qcow2,if=virtio,"
"cache=writeback,werror=report,readonly=off")))))
(marionette-eval '(system* "mount" #$device "/mnt")
marionette)
(unless (zero? (marionette-eval '(system* "mount" #$device "/mnt")
marionette))
(error "failed to mount foreign distro image" #$device))
(marionette-eval '(system* "ls" "-la" "/mnt")
marionette)
(marionette-eval '(begin