t/Deriv.t

   1 use Test::More 'no_plan';
   2 use Math::GSL qw/:all/;
   3 use Math::GSL::Deriv qw/:all/;
   4 use Math::GSL::Errno qw/:all/;
   5 use Data::Dumper;
   6 use strict;
   7 use warnings;
   8
   9 BEGIN{ gsl_set_error_handler_off() };
  10
  11 {
  12     local $TODO = "gsl_function *";
  13     my ($x,$h)=(5,0.01);
  14
  15     my $gsl_func = Math::GSL::Deriv::gsl_function_struct->new;
  16
  17     isa_ok( $gsl_func, 'Math::GSL::Deriv::gsl_function_struct' );
  18
  19
  20     $gsl_func->swig_function_set( sub { print "FOO\n" } );
  21     my $func = $gsl_func->swig_function_get();
  22     ok( ref $func eq 'CODE', 'swig_function_get works' );
  23
  24     my $params = $gsl_func->swig_params_set(0);
  25     ok( defined $params, 'swig_params_set works' );
  26
  27     my ($value, $result, $abserr);
  28     print "about to call deriv_central\n";
  29     #($value, $abserr) = gsl_deriv_central ( $gsl_func, $x, $h, $result, $abserr);
  30     print Dumper [ $value, $abserr ];
  31 }
  32