1 package Math::GSL::Deriv::Test;
2 use base 'Test::Class';
3 use Test::More tests => 13;
4 use Math::GSL qw/:all/;
5 use Math::GSL::Test qw/:all/;
6 use Math::GSL::Deriv qw/:all/;
7 use Math::GSL::Errno qw/:all/;
12 BEGIN{ gsl_set_error_handler_off() };
14 sub make_fixture : Test(setup) {
16 $self->{gsl_func} = Math::GSL::Deriv::gsl_function_struct->new;
19 sub teardown : Test(teardown) {
22 sub TEST_FUNCTION_STRUCT : Tests(1) {
25 isa_ok( $self->{gsl_func},'Math::GSL::Deriv::gsl_function_struct');
28 sub TEST_DERIV_CENTRAL_DIES : Tests(5) {
31 gsl_deriv_central( 'IAMNOTACODEREF', $x, $h);
32 },qr/Undefined subroutine/, 'gsl_deriv_central borks when first arg is not a existing routine');
34 gsl_deriv_central( undef, $x, $h);
35 },qr/not a reference to code/, 'gsl_deriv_central borks when first arg is undef');
37 gsl_deriv_central( {}, $x, $h);
38 },qr/not a reference to code/, 'gsl_deriv_central borks when first arg is hash ref');
40 gsl_deriv_central( [], $x, $h);
41 },qr/is an empty array/, 'gsl_deriv_central borks when first arg is an empty array ref');
43 gsl_deriv_central( 'IAMNOTACODEREF', $x, $h);
44 },qr/Undefined subroutine/, 'gsl_deriv_central borks when first arg is not a existing routine');
47 sub TEST_DERIV_CENTRAL : Tests(2) {
51 my ($status, $val,$err) = gsl_deriv_central ( sub { $_[0] ** 3 }, $x, $h,);
53 my $res = abs($val-3*$x**2);
54 ok( $res <= $err , sprintf ("gsl_deriv_forward: res=%.18f, abserr=%.18f",$res, $err ));
57 sub TEST_DERIV_FORWARD : Tests(2) {
61 my ($status, $val,$err) = gsl_deriv_forward ( sub { 2 * $_[0] ** 2 }, $x, $h,);
63 my $res = abs($val-4*$x);
64 ok( $res <= $err , sprintf ("gsl_deriv_forward: res=%.18f, abserr=%.18f",$res, $err ));
67 sub TEST_DERIV_BACKWARD : Tests(2) {
70 my ($status, $val, $err) = gsl_deriv_backward ( sub { log $_[0] }, $x, $h,);
72 my $res = abs($val-1/$x);
73 ok( $res <= $err , sprintf ("gsl_deriv_backward: res=%.18f, abserr=%.18f",$res, $err ));
76 sub TEST_DERIV_CENTRAL_CALLS_THE_SUB : Tests(1) {
81 gsl_deriv_central ( sub { die "CALL ME BACK!"} , $x, $h)
82 }, qr/CALL ME BACK/, 'gsl_deriv_central can call anon sub' );
84 Test::Class->runtests;