23 lines
639 B
Scheme
23 lines
639 B
Scheme
|
(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))
|
||
|
|
|
||
|
|
)
|