diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2025-07-14 18:36:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-07-18 00:43:50 +0200 |
| commit | 224361d3a354e0309b0070b067bbfbba618f40e5 (patch) | |
| tree | 18e9ad1a5fb167b9336c320863061f1b85afdce5 /gnu/tests | |
| parent | 8f25432f40fae1a059fdb9ef1703cad94c7550c3 (diff) | |
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
Diffstat (limited to 'gnu/tests')
| -rw-r--r-- | gnu/tests/foreign.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/tests/foreign.scm b/gnu/tests/foreign.scm index 79436bf5f2..fac24fc5da 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 |