emo/thin-provisioning-tools
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[dm-tests] define-dm-scenario

Browse Source 
Automatically opens the dm interface, and creates an allocator.
This commit is contained in:
Joe Thornber 2017-10-23 11:22:33 +01:00
parent 94a7d880bb
commit cfddb495fb
1 changed files with 39 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
functional-tests/device-mapper/dm-tests.scm
View File

@ -55,6 +55,14 @@
(equal? (target-len t1) (equal? (target-len t1)
(target-len t2)))) (target-len t2))))
(define-syntax define-dm-scenario
(syntax-rules ()
((_ path (pv) desc b1 b2 ...)
(define-scenario path desc
(with-dm
(with-test-allocator (pv)
b1 b2 ...))))))
;;;----------------------------------------------------------- ;;;-----------------------------------------------------------
;;; scenarios ;;; scenarios
;;;----------------------------------------------------------- ;;;-----------------------------------------------------------
@ -89,62 +97,48 @@
;; FIXME: export contructor for linear targets ;; FIXME: export contructor for linear targets
(load-table dev (list (linear test-dev 0 102400)))))) (load-table dev (list (linear test-dev 0 102400))))))
(define-scenario (dm load-many-targets) (define-dm-scenario (dm load-many-targets) (pv)
"You can load a large target table" "You can load a large target table"
(with-dm (with-empty-device (dev "foo" "uuid")
(with-test-allocator (pv) (load-table dev (linear-table pv 32))))
(with-empty-device (dev "foo" "uuid")
(load-table dev (linear-table pv 32))))))
(define-scenario (dm resume-works) (define-dm-scenario (dm resume-works) (pv)
"You can resume a new target with a table" "You can resume a new target with a table"
(with-dm (with-empty-device (dev "foo" "uuid")
(with-test-allocator (pv) (load-table dev (linear-table pv 8))
(with-empty-device (dev "foo" "uuid") (resume-device dev)))
(load-table dev (linear-table pv 8))
(resume-device dev)))))
(define-scenario (dm suspend-resume-cycle) (define-dm-scenario (dm suspend-resume-cycle) (pv)
"You can pause a device." "You can pause a device."
(with-dm (with-device (dev "foo" "uuid" (linear-table pv 8))
(with-test-allocator (pv) (suspend-device dev)
(with-device (dev "foo" "uuid" (linear-table pv 8)) (resume-device dev)))
(suspend-device dev)
(resume-device dev)))))
(define-scenario (dm reload-table) (define-dm-scenario (dm reload-table) (pv)
"You can reload a table" "You can reload a table"
(with-dm (with-device (dev "foo" "uuid" (linear-table pv 16))
(with-test-allocator (pv) (pause-device dev
(with-device (dev "foo" "uuid" (linear-table pv 16)) (load-table dev (linear-table pv 8)))))
(pause-device dev
(load-table dev (linear-table pv 8)))))))
(define-scenario (dm list-devices) (define-dm-scenario (dm list-devices) (pv)
"list-devices works" "list-devices works"
(with-dm (with-devices ((dev1 "foo" "uuid" (linear-table pv 4))
(with-test-allocator (pv) (dev2 "bar" "uuid2" (linear-table pv 4)))
(with-devices ((dev1 "foo" "uuid" (linear-table pv 4)) (let ((names (map device-details-name (list-devices))))
(dev2 "bar" "uuid2" (linear-table pv 4))) (assert-member? "foo" names)
(let ((names (map device-details-name (list-devices)))) (assert-member? "bar" names))))
(assert-member? "foo" names)
(assert-member? "bar" names))))))
(define-scenario (dm get-status) (define-dm-scenario (dm get-status) (pv)
"get-status works" "get-status works"
(with-dm (let ((table (linear-table pv 4)))
(with-test-allocator (pv) (with-device (dev "foo" "uuid" table)
(let ((table (linear-table pv 4))) (let ((status (get-status dev)))
(with-device (dev "foo" "uuid" table) (assert-every similar-targets table status)))))
(let ((status (get-status dev)))
(assert-every similar-targets table status)))))))
(define-scenario (dm get-table) (define-dm-scenario (dm get-table) (pv)
"get-table works" "get-table works"
(with-dm (let ((table (linear-table pv 4)))
(with-test-allocator (pv) (with-device (dev "foo" "uuid" table)
(let ((table (linear-table pv 4))) (let ((table-out (get-table dev)))
(with-device (dev "foo" "uuid" table) (assert-every similar-targets table table-out)))))
(let ((table-out (get-table dev)))
(assert-every similar-targets table table-out)))))))
) )