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