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

[dmtest] introduce the segment record.

Browse Source
This commit is contained in:
Joe Thornber 2017-10-26 13:42:09 +01:00
parent d4edef51b0
commit 79c0159108
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,10 +18,14 @@
(define test-dev "/dev/vda") (define test-dev "/dev/vda")
(define test-dev-size 209715200) (define test-dev-size 209715200)
(define (linear dev begin end) (define-record-type segment (fields (mutable dev)
(make-target (- end begin) (mutable start)
(mutable end)))
(define (linear seg)
(make-target (- (segment-end seg) (segment-start seg))
"linear" "linear"
(fmt #f dev " " begin))) (fmt #f (segment-dev seg) " " (segment-start seg))))
(define (make-allocator dev dev-len) (define (make-allocator dev dev-len)
(let ((offset 0)) (let ((offset 0))
@ -32,7 +36,7 @@
(fail "not enough space for allocation") (fail "not enough space for allocation")
(begin (begin
(set! offset e) (set! offset e)
(linear dev b e))))))) (linear (make-segment dev b e))))))))
(define-syntax with-test-allocator (define-syntax with-test-allocator
(syntax-rules () (syntax-rules ()
@ -95,7 +99,7 @@
(with-dm (with-dm
(with-empty-device (dev "foo" "uuid") (with-empty-device (dev "foo" "uuid")
;; 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 (make-segment test-dev 0 102400)))))))
(define-dm-scenario (dm load-many-targets) (pv) (define-dm-scenario (dm load-many-targets) (pv)
"You can load a large target table" "You can load a large target table"