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 | c114363a181de4227544801c0b92a29683f5388c (patch) | |
| tree | c0b5e99f0d6b56a7c1e897d164ce3067de4ec525 | |
| parent | ab542bac628727e52804d437acb4a0c0302196b9 (diff) | |
| download | txr-c114363a181de4227544801c0b92a29683f5388c.tar.gz txr-c114363a181de4227544801c0b92a29683f5388c.tar.bz2 txr-c114363a181de4227544801c0b92a29683f5388c.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 |