t/SF.t

   1 use Test::More 'no_plan';
   2 use Math::GSL;
   3 use Math::GSL::Errno;
   4 use Math::GSL::SF;
   5 use Data::Dumper;
   6 use strict;
   7 use warnings;
   8
   9 BEGIN{ Math::GSL::Errno::gsl_set_error_handler_off(); }
  10
  11 my $gsl = Math::GSL->new;
  12
  13 my $results = {
  14                 'Math::GSL::SF::gsl_sf_gamma(6.3)'  =>  201.813275184748,
  15                 'Math::GSL::SF::gsl_sf_erf(5)'      => 0.999999999998463,
  16                 'Math::GSL::SF::gsl_sf_bessel_J0(5)'=> -0.17759677131433830434739701,
  17                 # domain errors return nan
  18                 'Math::GSL::SF::gsl_sf_gamma(-1)'   => 'nan',
  19               };
  20
  21 $gsl->verify_results($results);
  22