t/Min.t

   1 package Math::GSL::Min::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL::Min qw/:all/;
   6 use Math::GSL qw/:all/;
   7 use strict;
   8
   9 sub make_fixture : Test(setup) {
  10     my $self = shift;
  11     $self->{min} = gsl_min_fminimizer_alloc($gsl_min_fminimizer_goldensection);
  12 }
  13
  14 sub teardown : Test(teardown) {
  15 }
  16
  17 sub GSL_MIN_TYPES : Tests {
  18
  19     my $m = gsl_min_fminimizer_alloc($gsl_min_fminimizer_goldensection);
  20     isa_ok($m, 'Math::GSL::Min');
  21
  22     my $n = gsl_min_fminimizer_alloc($gsl_min_fminimizer_brent);
  23     isa_ok($n, 'Math::GSL::Min');
  24 }
  25
  26 sub GSL_MIN_NEW_FREE : Tests {
  27     my $self = shift;
  28     my $min = $self->{min};
  29     isa_ok($min, 'Math::GSL::Min');
  30
  31     gsl_min_fminimizer_free($min);
  32     ok(!$@, 'gsl_min_fminimizer_free');
  33 }
  34
  35 Test::Class->runtests;