t/Randist.t

   1 package Math::GSL::Randist::Test;
   2 use base q{Test::Class};
   3 use Test::More tests => 4;
   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 Math::GSL::Const   qw/ $M_PI /;
   9 use Data::Dumper;
  10
  11 use strict;
  12
  13 sub make_fixture : Test(setup) {
  14     my $self = shift;
  15 }
  16
  17 sub teardown : Test(teardown) {
  18 }
  19
  20 sub GSL_RAN_PDF : Tests(4) {
  21     my $rng = Math::GSL::RNG->new;
  22     ok_similar(0, gsl_ran_bernoulli_pdf(2, 0.5), 'gsl_ran_bernoulli_pdf(2,0.5)=0' );
  23     ok_similar( gsl_ran_gaussian_pdf(0,1), 1/sqrt(2*$M_PI) );
  24     ok_similar( gsl_ran_ugaussian_pdf(0), 1/sqrt(2*$M_PI) );
  25     ok_similar( gsl_ran_chisq_pdf(1,2), exp(-1/2)/2 );
  26 }
  27 Test::Class->runtests;