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

[functional-tests] start a (generators) library

Browse Source
This commit is contained in:
Joe Thornber 2017-08-17 12:13:57 +01:00
parent 0730016cc2
commit a7d0e687e8
2 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
functional-tests/generators.scm Normal file
View File

@ -0,0 +1,18 @@
(library
(generators)
(export make-const-generator
make-uniform-generator)
(import (rnrs)
(srfi s27 random-bits))
(define (make-const-generator n)
(lambda () n))
(define (make-uniform-generator low hi)
(assert (<= low hi))
(let ((range (- hi low)))
(lambda ()
(+ low (random-integer range))))))

13
functional-tests/thin-xml.scm
View File

@ -3,23 +3,12 @@
(export generate-xml) (export generate-xml)
(import (rnrs) (import (rnrs)
(list-utils) (list-utils)
(generators)
(xml) (xml)
(fmt fmt) (fmt fmt)
(only (srfi s1 lists) iota) (only (srfi s1 lists) iota)
(srfi s27 random-bits)) (srfi s27 random-bits))
;;;----------------------------------------
(define (make-const-generator n)
(lambda () n))
(define (make-uniform-generator low hi)
(assert (<= low hi))
(let ((range (- hi low)))
(lambda ()
(+ low (random-integer range)))))
(define (div-down n d) (define (div-down n d)
(floor (/ n d))) (floor (/ n d)))