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

[functional-tests] Improve (thin create devices-in-reverse-order)

Browse Source
This commit is contained in:
Joe Thornber 2017-12-19 17:25:10 +00:00
parent 2fe7a884a2
commit fa8d691744
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -590,24 +590,23 @@
(kilo 64)) (kilo 64))
#t))) #t)))
;; Chasing a bug in btree_split_beneath() ;; Chasing a bug in btree_split_beneath(). This triggers when a value
;; smaller than the rest of the tree is inserted and the
;; btree_split_beneath() path is taken. The newly inserted key will not be
;; present. Once another low key is inserted that doesn't take the split
;; beneath path the missing value reappears.
(define-dm-scenario (thin create devices-in-reverse-order) (define-dm-scenario (thin create devices-in-reverse-order)
"Keep adding a key that's lower than what's in the tree." "Keep adding a key that's lower than what's in the tree."
(with-pool (pool (default-md-table (gig 1)) (with-pool (pool (default-md-table (gig 1))
(default-data-table) (default-data-table)
(kilo 64)) (kilo 64))
(let ((count 10000)) (let ((count 300))
(let loop ((n count)) (let loop ((n count))
(unless (zero? n) (unless (zero? n)
(info "creating thin " n) (info "creating thin " n)
(create-thin pool n) (create-thin pool n)
(loop (- n 2)))) (with-thin (thin pool n (gig 1)) #t) ; activate to check it's there
;; Check they're all still there (loop (- n 1)))))))
(let loop ((n count))
(unless (zero? n)
(info "deleting thin " n)
(delete-thin pool n)
(loop (- n 2)))))))
;;;----------------------------------------------------------- ;;;-----------------------------------------------------------
;;; Thin deletion scenarios ;;; Thin deletion scenarios