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

2017-08-25 11:25:37 +01:00
parent ccd89d32da
commit 78cb2570a3
2 changed files with 7 additions and 4 deletions
--- a/functional-tests/disk-units.scm
+++ b/functional-tests/disk-units.scm
@@ -0,0 +1,6 @@
+(library
+  (disk-units)
+  (export meg)
+  (import (rnrs))
+
+  (define (meg n) (* 1024 1024 n)))