[functional-tests] (device-mapper targets)

2017-10-06 15:26:10 +01:00
parent f80200d179
commit d9b3133aca
4 changed files with 49 additions and 6 deletions
--- a/functional-tests/fail.scm
+++ b/functional-tests/fail.scm
@@ -0,0 +1,7 @@
+(library
+  (fail)
+
+  (define (fail msg)
+    (raise (condition
+             (make-error)
+             (make-message-condition msg)))))