[functional-tests] simplify (thin create devices-in-reverse-order)
This commit is contained in:
parent
05151c648c
commit
0d4fdcc687
@ -596,17 +596,12 @@
|
|||||||
;; present. Once another low key is inserted that doesn't take the split
|
;; present. Once another low key is inserted that doesn't take the split
|
||||||
;; beneath path the missing value reappears.
|
;; 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 any in the tree."
|
||||||
(with-pool (pool (default-md-table (gig 1))
|
(with-default-pool (pool)
|
||||||
(default-data-table)
|
(from-to (n 300 0 -1)
|
||||||
(kilo 64))
|
|
||||||
(let ((count 300))
|
|
||||||
(let loop ((n count))
|
|
||||||
(unless (zero? n)
|
(unless (zero? n)
|
||||||
(info "creating thin " n)
|
(create-thin pool n)
|
||||||
(create-thin pool n)
|
(with-thin (thin pool n (gig 1)) #t))))) ; activate to check it's there
|
||||||
(with-thin (thin pool n (gig 1)) #t) ; activate to check it's there
|
|
||||||
(loop (- n 1)))))))
|
|
||||||
|
|
||||||
;;;-----------------------------------------------------------
|
;;;-----------------------------------------------------------
|
||||||
;;; Thin deletion scenarios
|
;;; Thin deletion scenarios
|
||||||
|
Loading…
Reference in New Issue
Block a user