6 |
(in-package :cl-test) |
(in-package :cl-test) |
7 |
|
|
8 |
(defun bit-random-test-fn (bit-fn log-fn &key (reps 5000) (maxlen 100)) |
(defun bit-random-test-fn (bit-fn log-fn &key (reps 5000) (maxlen 100)) |
9 |
(assert (typep maxlen '(integer (0)))) |
(assert (typep maxlen '(integer 1))) |
10 |
(assert (typep reps 'unsigned-byte)) |
(assert (typep reps 'unsigned-byte)) |
11 |
(loop for len = (random maxlen) |
(loop for len = (random maxlen) |
12 |
for twos = (make-list len :initial-element 2) |
for twos = (make-list len :initial-element 2) |