mirror of
https://codeberg.org/guix/guix.git
synced 2026-01-25 12:05:19 -06:00
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:
parent
8f25432f40
commit
224361d3a3
1 changed files with 4 additions and 2 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue