lib/Math/GSL/ODEIV/Test.pm

   1 package Math::GSL::ODEIV::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL::ODEIV qw/:all/;
   6 use Math::GSL qw/:all/;
   7 use Data::Dumper;
   8 use strict;
   9
  10 sub make_fixture : Test(setup) {
  11     my $self = shift;
  12 }
  13
  14 sub teardown : Test(teardown) {
  15 }
  16
  17 sub GSL_ODEIV_STEP_ALLOC : Tests {
  18  my $step = gsl_odeiv_step_alloc($gsl_odeiv_step_rk2, 3);
  19  isa_ok( $step, 'Math::GSL::ODEIV' );
  20 }
  21
  22 sub GSL_ODEIV_EVOLVE_ALLOC : Tests {
  23     my $evolver = gsl_odeiv_evolve_alloc(2);
  24     isa_ok( $evolver, 'Math::GSL::ODEIV' );
  25 }
  26
  27 sub NAME : Tests {
  28  my $s = gsl_odeiv_step_alloc($gsl_odeiv_step_rk2, 3);
  29  my $name = gsl_odeiv_step_name ($s);
  30  ok($name eq "rk2");
  31 }
  32
  33 sub GSL_ODEIV_CONTROL_ALLOC : Tests {
  34  my $control_type;
  35  local $TODO = "need a way to create a gsl_odeiv_control_type struct";
  36 # my $control = gsl_odeiv_control_alloc($control_type);
  37 # isa_ok( $control, 'Math::GSL::ODEIV' );
  38 }
  39 1;