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

[functional-tests] start a trivial (disk-units) library

Browse Source
This commit is contained in:
Joe Thornber 2017-08-25 11:25:37 +01:00
parent ccd89d32da
commit 78cb2570a3
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
functional-tests/disk-units.scm Normal file
View File

@ -0,0 +1,6 @@
(library
(disk-units)
(export meg)
(import (rnrs))
(define (meg n) (* 1024 1024 n)))

5
functional-tests/thin-functional-tests.scm
View File

@ -5,6 +5,7 @@
(import (import
(chezscheme) (chezscheme)
(disk-units)
(fmt fmt) (fmt fmt)
(functional-tests) (functional-tests)
(process) (process)
@ -20,10 +21,6 @@
(define-tool thin-restore) (define-tool thin-restore)
(define-tool thin-rmap) (define-tool thin-rmap)
;; FIXME: start a disk units library
(define (meg n)
(* 1024 1024 n))
(define-syntax with-thin-xml (define-syntax with-thin-xml
(syntax-rules () (syntax-rules ()
((_ (v) b1 b2 ...) ((_ (v) b1 b2 ...)