trunk/testgsl

   1 #!/usr/bin/perl -w
   2
   3 use Test::More tests=> 2;
   4 use SF;
   5
   6 my $eps = 1e-8;
   7
   8 my %results = (
   9                 'gsl_sf_gamma(6.3)' =>  201.813275184748,
  10                 'gsl_sf_erf(5)'     => 0.999999999998463,
  11               );
  12
  13 while (my($k,$v)=each %results){
  14     my $x = eval "Math::GSL::SF::$k";
  15     my $res = abs($x - $v);
  16     ok( $res < $eps, "$k ?= $x, res=$res" );
  17 }
  18