1 package Math
::GSL
::Min
::Test
;
2 use Math
::GSL
::Test qw
/:all/;
3 use base
q{Test::Class};
5 use Math
::GSL
::Min qw
/:all/;
6 use Math
::GSL qw
/:all/;
9 sub make_fixture
: Test
(setup
) {
11 $self->{min
} = gsl_min_fminimizer_alloc
($gsl_min_fminimizer_goldensection);
14 sub teardown
: Test
(teardown
) {
17 sub GSL_MIN_TYPES
: Tests
{
19 my $m = gsl_min_fminimizer_alloc
($gsl_min_fminimizer_goldensection);
20 isa_ok
($m, 'Math::GSL::Min');
22 my $n = gsl_min_fminimizer_alloc
($gsl_min_fminimizer_brent);
23 isa_ok
($n, 'Math::GSL::Min');
26 sub GSL_MIN_NEW_FREE
: Tests
{
28 my $min = $self->{min
};
29 isa_ok
($min, 'Math::GSL::Min');
31 gsl_min_fminimizer_free
($min);
32 ok
(!$@
, 'gsl_min_fminimizer_free');