t/CDF.t

   1 use Test::More 'no_plan';
   2 use Math::GSL;
   3 use Math::GSL::CDF;
   4 use Data::Dumper;
   5 use strict;
   6 use warnings;
   7
   8 {
   9     my $gsl = Math::GSL->new;
  10     my $results = {
  11                     'Math::GSL::CDF::gsl_cdf_ugaussian_P(2.0)'           => 0.977250,
  12                     'Math::GSL::CDF::gsl_cdf_ugaussian_Q(2.0)'           => 0.022750,
  13                     'Math::GSL::CDF::gsl_cdf_ugaussian_Pinv(0.977250)'   => 2.000000,
  14                     'Math::GSL::CDF::gsl_cdf_ugaussian_Qinv(0.022750)'   => 2.000000,
  15                 };
  16     $gsl->verify_results($results, undef, 1e-5);
  17 }