[functional-tests] start working on dm-ioctl bindings

functional-tests/device-mapper/dm-tests.scm

@@ -0,0 +1,22 @@
+(library
+  (device-mapper dm-tests)
+  (export register-dm-tests)
+  (import (device-mapper ioctl)
+          (chezscheme)
+          (functional-tests)
+          (fmt fmt)
+          (process)
+          (temp-file))
+  
+  ;; We have to export something that forces all the initialisation expressions
+  ;; to run.
+  (define (register-dm-tests) #t)
+
+  ;;;-----------------------------------------------------------
+  ;;; scenarios
+  ;;;-----------------------------------------------------------
+  (define-scenario (dm create-interface)
+                   "create and destroy an ioctl interface object"
+                   (with-dm (dm) #t))
+
+  )