t/Randist.t

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