thin-provisioning-tools/functional-tests/device-mapper/dm-tests.scm

23 lines
639 B
Scheme
Raw Normal View History

(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))
)