t/Randist.t

   1 package Math::GSL::Randist::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL::Randist qw/:all/;
   6 use Math::GSL::RNG qw/:all/;
   7 use Math::GSL qw/:all/;
   8 use Data::Dumper;
   9 use Math::GSL::Errno qw/:all/;
  10 use strict;
  11
  12 sub make_fixture : Test(setup) {
  13     my $self = shift;
  14     $self->{vector} = gsl_rng_alloc($gsl_rng_default);
  15 }
  16
  17 sub teardown : Test(teardown) {
  18 }
  19
  20 sub GSL_RAN_BERNOULLI_PDF : Tests {
  21     my $x = gsl_ran_bernoulli_pdf(2, 0.5);
  22     is($x, 0);
  23 }
  24 Test::Class->runtests;