You may want to check Test::RandomResults.
In reply to Re: writing tests on modules by cog in thread writing tests on modules by arcnon