int main (int argc, char **argv) {
int fails = 0;
srand(rd_clock());
fails += test_shuffle();
return fails ? 1 : 0;
}
int main (int argc, char *argv[])
{
test_reverse_copy();
test_ipv4_mapped();
test_btc_decimals();
test_misc();
test_shuffle();
return 0;
}
int main(void){
rng = gsl_rng_alloc (gsl_rng_taus);
gsl_rng_set(rng, seed);
printf("%d\n", seed);
test_multinomial();
test_dirichlet();
test_bivariate_gaussian();
test_dir();
test_shuffle();
return 0;
}
int main(int argc, char **argv) {
unsigned int i;
/* we want stable tests, so use fixed seed */
srand(0xdeadbeef);
test_api();
/*
* The tests are pseudo random; run them multiple times, each run will
* have different orders and thus different results.
*/
for (i = 0; i < 4; ++i) {
test_shuffle();
test_map();
}
return 0;
}
int
main (void)
{
gsl_ieee_env_setup ();
gsl_rng_env_setup() ;
r_global = gsl_rng_alloc (gsl_rng_default);
#define FUNC(x) test_ ## x, "test gsl_ran_" #x
#define FUNC2(x) test_ ## x, test_ ## x ## _pdf, "test gsl_ran_" #x
test_shuffle() ;
test_choose() ;
testMoments (FUNC (ugaussian), 0.0, 100.0, 0.5);
testMoments (FUNC (ugaussian), -1.0, 1.0, 0.6826895);
testMoments (FUNC (ugaussian), 3.0, 3.5, 0.0011172689);
testMoments (FUNC (ugaussian_tail), 3.0, 3.5, 0.0011172689/0.0013498981);
testMoments (FUNC (exponential), 0.0, 1.0, 1- exp(-0.5));
testMoments (FUNC (cauchy), 0.0, 10000.0, 0.5);
testMoments (FUNC (discrete1), -0.5, 0.5, 0.59 );
testMoments (FUNC (discrete1), 0.5, 1.5, 0.40 );
testMoments (FUNC (discrete1), 1.5, 3.5, 0.01 );
testPDF (FUNC2(beta));
testPDF (FUNC2(cauchy));
testPDF (FUNC2(chisq));
testPDF (FUNC2(erlang));
testPDF (FUNC2(exponential));
testPDF (FUNC2(exppow0));
testPDF (FUNC2(exppow1));
testPDF (FUNC2(exppow1a));
testPDF (FUNC2(exppow2));
testPDF (FUNC2(exppow2a));
testPDF (FUNC2(fdist));
testPDF (FUNC2(flat));
testPDF (FUNC2(gamma));
testPDF (FUNC2(gamma1));
testPDF (FUNC2(gamma_int));
testPDF (FUNC2(gamma_large));
testPDF (FUNC2(gaussian));
testPDF (FUNC2(gaussian_ratio_method));
testPDF (FUNC2(ugaussian));
testPDF (FUNC2(ugaussian_ratio_method));
testPDF (FUNC2(gaussian_tail));
testPDF (FUNC2(gaussian_tail1));
testPDF (FUNC2(gaussian_tail2));
testPDF (FUNC2(ugaussian_tail));
testPDF (FUNC2(bivariate_gaussian1));
testPDF (FUNC2(bivariate_gaussian2));
testPDF (FUNC2(bivariate_gaussian3));
testPDF (FUNC2(bivariate_gaussian4));
testPDF (FUNC2(gumbel1));
testPDF (FUNC2(gumbel2));
testPDF (FUNC2(landau));
testPDF (FUNC2(levy1));
testPDF (FUNC2(levy2));
testPDF (FUNC2(levy1a));
testPDF (FUNC2(levy2a));
testPDF (FUNC2(levy_skew1));
testPDF (FUNC2(levy_skew2));
testPDF (FUNC2(levy_skew1a));
testPDF (FUNC2(levy_skew2a));
testPDF (FUNC2(levy_skew1b));
testPDF (FUNC2(levy_skew2b));
testPDF (FUNC2(logistic));
testPDF (FUNC2(lognormal));
testPDF (FUNC2(pareto));
testPDF (FUNC2(rayleigh));
testPDF (FUNC2(rayleigh_tail));
testPDF (FUNC2(tdist1));
testPDF (FUNC2(tdist2));
testPDF (FUNC2(laplace));
testPDF (FUNC2(weibull));
testPDF (FUNC2(weibull1));
testPDF (FUNC2(dir2d));
testPDF (FUNC2(dir2d_trig_method));
testPDF (FUNC2(dir3dxy));
testPDF (FUNC2(dir3dyz));
testPDF (FUNC2(dir3dzx));
testDiscretePDF (FUNC2(discrete1));
testDiscretePDF (FUNC2(discrete2));
testDiscretePDF (FUNC2(poisson));
testDiscretePDF (FUNC2(poisson_large));
testDiscretePDF (FUNC2(bernoulli));
testDiscretePDF (FUNC2(binomial));
testDiscretePDF (FUNC2(binomial_large));
testDiscretePDF (FUNC2(geometric));
testDiscretePDF (FUNC2(geometric1));
testDiscretePDF (FUNC2(hypergeometric1));
testDiscretePDF (FUNC2(hypergeometric2));
testDiscretePDF (FUNC2(hypergeometric3));
testDiscretePDF (FUNC2(hypergeometric4));
testDiscretePDF (FUNC2(hypergeometric5));
testDiscretePDF (FUNC2(hypergeometric6));
testDiscretePDF (FUNC2(logarithmic));
testDiscretePDF (FUNC2(negative_binomial));
testDiscretePDF (FUNC2(pascal));
exit (gsl_test_summary());
}
