t/Deriv.t

   1 use Test::More 'no_plan';
   2 use Math::GSL;
   3 use Math::GSL::Deriv;
   4 use Data::Dumper;
   5 use strict;
   6 use warnings;
   7
   8
   9
  10 {
  11     my ($x,$h,$result,$abserr)=(5,0.01,0,0);
  12     my $x_squared = sub {my $x=shift; $x ** 2};
  13
  14     for my $f (qw/central backward forward/) {
  15         eval {
  16             Math::GSL::_assert_dies(
  17                 sub { Math::GSL::Deriv::gsl_deriv_$f ( $x_squared, $x, $h, $result, $abserr)  } );
  18         }
  19     }
  20 }
  21