trunk/t/SF.t

   1 use Test::More tests=>2;
   2 use Math::GSL::SF;
   3 use File::Fu;
   4 use lib File->dir('..') + 'lib';
   5 use Data::Dumper;
   6 use strict;
   7 use warnings;
   8
   9 my $gsl = Math::GSL->new;
  10
  11 my $results = {
  12                 'gsl_sf_gamma(6.3)' =>  201.813275184748,
  13                 'gsl_sf_erf(5)'     => 0.999999999998463,
  14               };
  15
  16 $gsl->verify_results($results);
  17