[plt-scheme] FastTest: new randomized testing library on Planet
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))))))
>