From 26140781889f90841fd7f3632ebbfc3159cba34a Mon Sep 17 00:00:00 2001 From: Joe Thornber Date: Fri, 15 Dec 2017 11:18:09 +0000 Subject: [PATCH] [functional-tests] Improve error message in create-device --- functional-tests/device-mapper/ioctl.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/functional-tests/device-mapper/ioctl.scm b/functional-tests/device-mapper/ioctl.scm index 1be5fea..e69bbc2 100644 --- a/functional-tests/device-mapper/ioctl.scm +++ b/functional-tests/device-mapper/ioctl.scm @@ -200,9 +200,10 @@ (dynamic-wind (lambda () #f) (lambda () - (if (zero? (create (current-dm-interface) name uuid major minor)) - (make-dm-device name (deref-u32 major) (deref-u32 minor)) - (fail "create-device failed"))) + (let ((r (create (current-dm-interface) name uuid major minor))) + (if (zero? r) + (make-dm-device name (deref-u32 major) (deref-u32 minor)) + (fail (fmt #f "create-device failed with error code " r))))) (lambda () (free-u32 major) (free-u32 minor)))))