# [plt-scheme] FastTest: new randomized testing library on Planet

Carl,
I tried the examples and I ran into a couple of problems. (PLT
:*371.3-svn18sep2007)
*
(random-uniform list* (random-symbol)) ; produced >>
top-level broke the contract
(case->
(->
(->* () (listof generator?) (generator?))
generator?
generator?)
(->
(->* () (listof generator?) (generator?))
generator?
generator?
generator?))
on random-uniform; expected a procedure that accepts 0 arguments and any
number of arguments larger than 0, given: #<primitive:list*>
Also this fails (removing the parenthesis around random-boolena doesn't
really help) >
(define f
(generate
(random-function
(lambda (n)
(random-list (random-boolean) (nonrandom n))))))