From c114363a181de4227544801c0b92a29683f5388c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 26 Aug 2021 07:28:44 -0700 Subject: mmap test: use random-buf. * tests/017/mmap.tl: Use the new random-buf function instead of converting pseudo-random bignums to a buffer. --- tests/017/mmap.tl | 6 ++---- 1 file 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 -- cgit v1.2.3