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

From: Carl Eastlund (cce at ccs.neu.edu)
Date: Fri Oct 26 19:14:47 EDT 2007

Thanks, I'll make sure to add the examples as test cases, get them
working, and release again soon.

--Carl

On 10/26/07, Geoffrey King <lordgeoffrey at optushome.com.au> wrote:
> 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))))))
>


Posted on the users mailing list.