summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2021-08-26 07:28:44 -0700
committerKaz Kylheku <kaz@kylheku.com>2021-08-26 07:28:44 -0700
commit571a1cb6db6a59fab76e95b88738fb7e94a096ae (patch)
treec0b5e99f0d6b56a7c1e897d164ce3067de4ec525
parent803b85910b51fdfa04bece1f008e6af6c2e1ff51 (diff)
downloadtxr-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.tl6
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