[functional-tests] Improve error message in create-device
This commit is contained in:
parent
ee40e4becf
commit
2614078188
@ -200,9 +200,10 @@
|
|||||||
(dynamic-wind
|
(dynamic-wind
|
||||||
(lambda () #f)
|
(lambda () #f)
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(if (zero? (create (current-dm-interface) name uuid major minor))
|
(let ((r (create (current-dm-interface) name uuid major minor)))
|
||||||
(make-dm-device name (deref-u32 major) (deref-u32 minor))
|
(if (zero? r)
|
||||||
(fail "create-device failed")))
|
(make-dm-device name (deref-u32 major) (deref-u32 minor))
|
||||||
|
(fail (fmt #f "create-device failed with error code " r)))))
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(free-u32 major)
|
(free-u32 major)
|
||||||
(free-u32 minor)))))
|
(free-u32 minor)))))
|
||||||
|
Loading…
Reference in New Issue
Block a user