t/Randist.t

   1 use Test::More tests=>4;
   2 use Math::GSL;
   3 use Math::GSL::Randist;
   4 use Math::GSL::RNG;
   5 use Data::Dumper;
   6 use strict;
   7 use warnings;
   8
   9 my $gsl = Math::GSL->new;
  10
  11 my $results = {
  12                 'Math::GSL::Randist::gsl_ran_hypergeometric_pdf(1,3,5,6)' => 0.107142857142857,
  13                 'Math::GSL::Randist::gsl_ran_laplace_pdf(5,10)'           => 0.0303265329856317,
  14                 'Math::GSL::Randist::gsl_ran_gaussian_pdf(2,3.14)'        => 0.10372528979964,
  15               };
  16
  17 $gsl->verify_results($results);
  18
  19 {
  20     Math::GSL::_assert_dies( sub { Math::GSL::Randist::gsl_ran_laplace(1,2) } );
  21 }