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

[functional-tests] Get (thin delete recover-space) working

Browse Source
This commit is contained in:
Joe Thornber 2017-12-18 11:43:33 +00:00
parent 0dc237c356
commit 324d17981a
1 changed files with 35 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -255,6 +255,23 @@
#f ; fail #f ; fail
)) ))
(define (fmt-pool-status status)
(if (pool-status-fail status)
"pool failed"
(cat "transaction-id: " (pool-status-transaction-id status) ", "
(pool-status-used-metadata status) "/" (pool-status-total-metadata status) " metadata, "
(pool-status-used-data status) "/" (pool-status-total-data status) " data, "
(let ((hr (pool-status-held-root status)))
(if (car hr)
(cat "held root: " (cdr hr) ", ")
""))
(if (pool-status-needs-check status) "needs-check, " "")
(if (pool-status-discard status) "discard, " "")
(if (pool-status-discard-passdown status) "discard-passdown, " "")
(if (pool-status-block-zeroing status) "block-zero, " "")
"io-mode: " (pool-status-io-mode status) ", "
"no-space-behaviour: " (pool-status-no-space-behaviour status) ", ")))
(define digit (p:charset "0123456789")) (define digit (p:charset "0123456789"))
(define number (define number
@ -318,7 +335,7 @@
(p:pure #t)) (p:pure #t))
(p:pure #f))) (p:pure #f)))
(define (parse-pool-status txt) (define parse-pool-status
(p:parse-m (p:<- transaction-id number) (p:parse-m (p:<- transaction-id number)
space space
(p:<- used-metadata number) (p:<- used-metadata number)
@ -347,7 +364,14 @@
(define (get-pool-status pool) (define (get-pool-status pool)
(p:parse-value parse-pool-status (p:parse-value parse-pool-status
(get-status pool))) (target-args (car (get-status pool)))))
;; FIXME: we could get the block size by querying the pool table
(define (assert-pool-used-data pool block-size expected-size)
(let ((status (get-pool-status pool)))
(assert-equal (pool-status-used-data status)
(/ (to-sectors expected-size)
(to-sectors block-size)))))
;;;----------------------------------------------------------- ;;;-----------------------------------------------------------
;;; Fundamental dm scenarios ;;; Fundamental dm scenarios
@ -595,13 +619,15 @@
(assert-raises (assert-raises
(delete-thin pool 0))))) (delete-thin pool 0)))))
#|
(define-dm-scenario (thin delete recover-space) (define-dm-scenario (thin delete recover-space)
"Deleting a thin recovers data space" "Deleting a thin recovers data space"
(let ((thin-size (gig 1)))
(with-default-pool (pool) (with-default-pool (pool)
(with-new-thin (thin pool 0 (gig 1)) (with-new-thin (thin pool 0 thin-size)
;(zero-dev thin) (assert-pool-used-data pool (kilo 64) (sectors 0))
(fmt #t (get-pool-status pool))))) (zero-dev thin))
|# (assert-pool-used-data pool (kilo 64) thin-size)
) (delete-thin pool 0)
(assert-pool-used-data pool (kilo 64) (sectors 0)))))
)