lib/Math/GSL/Multiroots/Test.pm

   1 package Math::GSL::Multiroots::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL::Multiroots qw/:all/;
   6 use Math::GSL::Errno qw/:all/;
   7 use Math::GSL qw/:all/;
   8 use strict;
   9
  10 sub make_fixture : Test(setup) {
  11     my $self = shift;
  12 }
  13
  14 sub teardown : Test(teardown) {
  15     my $self = shift;
  16 }
  17
  18 sub TEST_FSOLVER_TYPES : Tests {
  19     my $self = shift;
  20     isa_ok( $_, 'Math::GSL::Multiroots')
  21         for ($gsl_multiroot_fsolver_dnewton,
  22             $gsl_multiroot_fsolver_broyden,
  23             $gsl_multiroot_fsolver_hybrid,
  24             $gsl_multiroot_fsolver_hybrids,
  25             $gsl_multiroot_fdfsolver_newton,
  26             $gsl_multiroot_fdfsolver_gnewton,
  27             $gsl_multiroot_fdfsolver_hybridj,
  28             $gsl_multiroot_fdfsolver_hybridsj
  29         );
  30 }
  31 1;