1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
package Math::GSL::Multiroots::Test;
use base q{Test::Class};
use Test::More tests => 11;
use Math::GSL qw/:all/;
use Math::GSL::Errno qw/:all/;
use Math::GSL::Test qw/:all/;
use Math::GSL::Multiroots qw/:all/;
use Data::Dumper;
use strict;
BEGIN { gsl_set_error_handler_off(); }
sub make_fixture : Test(setup) {
my $self = shift;
$self->{fdfsolver} = gsl_multiroot_fdfsolver_alloc($gsl_multiroot_fdfsolver_newton,2);
$self->{fsolver} = gsl_multiroot_fsolver_alloc($gsl_multiroot_fsolver_broyden,2);
}
sub teardown : Test(teardown) {
my $self = shift;
gsl_multiroot_fsolver_free($self->{fsolver});
gsl_multiroot_fdfsolver_free($self->{fdfsolver});
}
sub TEST_FSOLVER_ALLOC : Tests {
my $self = shift;
isa_ok($self->{fsolver}, 'Math::GSL::Multiroots');
}
sub TEST_FSOLVER_SET : Tests {
local $TODO = 'need gsl_multiroot_function typemap';
my $self = shift;
my $vector = Math::GSL::Vector->new(2);
ok_status(gsl_multiroot_fsolver_set($self->{fsolver},
sub { die 'This will surely fail' },
$vector->raw,
));
}
sub TEST_FDFSOLVER_ALLOC : Tests {
my $self = shift;
isa_ok($self->{fdfsolver}, 'Math::GSL::Multiroots');
}
sub TEST_FSOLVER_TYPES : Tests {
my $self = shift;
isa_ok( $_, 'Math::GSL::Multiroots')
for ($gsl_multiroot_fsolver_dnewton,
$gsl_multiroot_fsolver_broyden,
$gsl_multiroot_fsolver_hybrid,
$gsl_multiroot_fsolver_hybrids,
$gsl_multiroot_fdfsolver_newton,
$gsl_multiroot_fdfsolver_gnewton,
$gsl_multiroot_fdfsolver_hybridj,
$gsl_multiroot_fdfsolver_hybridsj
);
}
Test::Class->runtests;
|
