diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-08-26 07:28:44 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-08-26 07:28:44 -0700 |
commit | 571a1cb6db6a59fab76e95b88738fb7e94a096ae (patch) | |
tree | c0b5e99f0d6b56a7c1e897d164ce3067de4ec525 | |
parent | 803b85910b51fdfa04bece1f008e6af6c2e1ff51 (diff) | |
download | txr-571a1cb6db6a59fab76e95b88738fb7e94a096ae.tar.gz txr-571a1cb6db6a59fab76e95b88738fb7e94a096ae.tar.bz2 txr-571a1cb6db6a59fab76e95b88738fb7e94a096ae.zip |
mmap test: use random-buf.
* tests/017/mmap.tl: Use the new random-buf function instead
of converting pseudo-random bignums to a buffer.
-rw-r--r-- | tests/017/mmap.tl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/017/mmap.tl b/tests/017/mmap.tl index 639e256c..d6b2781f 100644 --- a/tests/017/mmap.tl +++ b/tests/017/mmap.tl @@ -27,10 +27,8 @@ (assert (plusp page-size)) -(let* ((buf-mod (trunc (expt 256 page-size) 2)) - (mk-rnd-buf (ret (flow buf-mod rand (+ buf-mod) buf-uint))) - (rndbuf0 [mk-rnd-buf]) - (rndbuf1 [mk-rnd-buf]) +(let* ((rndbuf0 (random-buf page-size)) + (rndbuf1 (random-buf page-size)) (fname "rand.bin")) (unwind-protect (progn |