From 224361d3a354e0309b0070b067bbfbba618f40e5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 14 Jul 2025 18:36:17 +0200
Subject: [PATCH] tests: foreign: Catch failure to mount distro image.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

Change-Id: I7c608e0aa7dff1447c9df778951d7a5256e47255
---
 gnu/tests/foreign.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm
index 79436bf5f24..fac24fc5dad 100644
--- a/gnu/tests/foreign.scm
+++ b/gnu/tests/foreign.scm
@@ -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