t/Randist.t

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