void run_crush_testu01_uint(const char* name)
{
unif01_Gen *gen;
gen = unif01_CreateExternGenBits((char*)name, test_rand_uint32);
bbattery_Crush(gen);
unif01_DeleteExternGenBits(gen);
}
int main( int argc, const char* argv[] ) {
unif01_Gen *gen;
gen = unif01_CreateExternGen01("RANDGAMMA", rgamma_inv);
if(argc < 2 || argv[1][0] == 's')
bbattery_SmallCrush(gen);
else if(argv[1][0] == 'm')
bbattery_Crush(gen);
else if(argv[1][0] == 'b')
bbattery_BigCrush(gen);
else {
std::cerr << "Unknown Test" << std::endl;
unif01_DeleteExternGen01(gen);
return 1;
}
unif01_DeleteExternGen01(gen);
return 0;
}
int main (int argc, char **argv)
{
unif01_Gen *gen;
int testsize = 0;
int flags = 0;
int err;
err = read_opts(argc, argv, &flags, &testsize);
if (err) {
exit(EXIT_FAILURE);
}
gretl_rand_init();
if (flags & BOX_MULLER) {
gretl_rand_set_box_muller(1);
}
if (flags & NORMAL_RNG) {
gen = unif01_CreateExternGen01("libgretl", u01_from_normal);
} else {
gen = unif01_CreateExternGen01("libgretl", u01_direct);
}
/* select the test battery */
if (testsize == 0) {
bbattery_SmallCrush(gen);
} else if (testsize == 1) {
bbattery_Crush(gen);
} else if (testsize == 2) {
bbattery_BigCrush(gen);
}
unif01_DeleteExternGen01(gen);
gretl_rand_free();
return 0;
}
