[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))))))