39 lines
1.1 KiB
Scheme
39 lines
1.1 KiB
Scheme
|
(library
|
||
|
|
(bcache bcache-tests)
|
||
|
|
(export register-bcache-tests)
|
||
|
|
(import (bcache block-manager)
|
||
|
|
(chezscheme)
|
||
|
|
(functional-tests)
|
||
|
|
(fmt fmt)
|
||
|
|
(process)
|
||
|
|
(temp-file))
|
||
|
|
|
||
|
|
(define-syntax with-empty-metadata
|
||
|
|
(syntax-rules ()
|
||
|
|
((_ (md nr-blocks) b1 b2 ...)
|
||
|
|
(with-temp-file-sized ((md "bcache.bin" (* 4096 nr-blocks)))
|
||
|
|
b1 b2 ...))))
|
||
|
|
|
||
|
|
;; We have to export something that forces all the initialisation expressions
|
||
|
|
;; to run.
|
||
|
|
(define (register-bcache-tests) #t)
|
||
|
|
|
||
|
|
;;;-----------------------------------------------------------
|
||
|
|
;;; scenarios
|
||
|
|
;;;-----------------------------------------------------------
|
||
|
|
|
||
|
|
(define-scenario (bcache create)
|
||
|
|
"create and destroy a block cache"
|
||
|
|
(with-empty-metadata (md 16)
|
||
|
|
(with-bcache (cache md 16)
|
||
|
|
#t)))
|
||
|
|
|
||
|
|
(define-scenario (bcache read-ref)
|
||
|
|
"get a read-ref on a block"
|
||
|
|
(with-empty-metadata (md 16)
|
||
|
|
(with-bcache (cache md 16)
|
||
|
|
(with-block (b cache 0 (get-flags))
|
||
|
|
#f))))
|
||
|
|
)
|
||
|
|
|