1 package Math
::GSL
::Randist
::Test
;
2 use Math
::GSL
::Test qw
/:all/;
3 use base
q{Test::Class};
5 use Math
::GSL
::Randist qw
/:all/;
6 use Math
::GSL
::RNG qw
/:all/;
7 use Math
::GSL qw
/:all/;
9 use Math
::GSL
::Errno qw
/:all/;
12 sub make_fixture
: Test
(setup
) {
14 $self->{vector
} = gsl_rng_alloc
($gsl_rng_default);
17 sub teardown
: Test
(teardown
) {
20 sub GSL_RAN_BERNOULLI_PDF
: Tests
{
21 my $x = gsl_ran_bernoulli_pdf
(2, 0.5);