[functional-tests] switch map -> for-each in a couple of places
This commit is contained in:
parent
19dfed1da9
commit
ee40e4becf
@ -501,22 +501,22 @@
|
|||||||
|
|
||||||
(define-dm-scenario (thin create bs-multiple-of-64k-good)
|
(define-dm-scenario (thin create bs-multiple-of-64k-good)
|
||||||
"The block size must be a multiple of 64k - good examples"
|
"The block size must be a multiple of 64k - good examples"
|
||||||
(map (lambda (bs)
|
(for-each (lambda (bs)
|
||||||
(with-pool (pool (default-md-table)
|
(with-pool (pool (default-md-table)
|
||||||
(default-data-table (gig 10))
|
(default-data-table (gig 10))
|
||||||
(kilo bs))
|
(kilo bs))
|
||||||
#t))
|
#t))
|
||||||
'(64 128 192 512 1024)))
|
'(64 128 192 512 1024)))
|
||||||
|
|
||||||
(define-dm-scenario (thin create bs-multiple-of-64k-bad)
|
(define-dm-scenario (thin create bs-multiple-of-64k-bad)
|
||||||
"The block size must be a multiple of 64k - bad examples"
|
"The block size must be a multiple of 64k - bad examples"
|
||||||
(map (lambda (bs)
|
(for-each (lambda (bs)
|
||||||
(assert-raises
|
(assert-raises
|
||||||
(with-pool (pool (default-md-table)
|
(with-pool (pool (default-md-table)
|
||||||
(default-data-table (gig 10))
|
(default-data-table (gig 10))
|
||||||
(kilo bs))
|
(kilo bs))
|
||||||
#t)))
|
#t)))
|
||||||
'(65 96)))
|
'(65 96)))
|
||||||
|
|
||||||
(define-dm-scenario (thin create tiny-block-size-fails)
|
(define-dm-scenario (thin create tiny-block-size-fails)
|
||||||
"The block size must be at least 64k"
|
"The block size must be at least 64k"
|
||||||
|
Loading…
Reference in New Issue
Block a user