t/PowInt.t

   1 package Math::GSL::PowInt::Test;
   2 use Math::GSL::Test qw/:all/;
   3 use base q{Test::Class};
   4 use Test::More;
   5 use Math::GSL::PowInt qw/:all/;
   6 use Math::GSL::Sys qw/gsl_posinf gsl_nan/;
   7 use Math::GSL qw/:all/;
   8 use Data::Dumper;
   9 use strict;
  10
  11 sub make_fixture : Test(setup) { }
  12 sub teardown : Test(teardown) { }
  13
  14 sub TEST_BASIC: Tests {
  15     my %results = (
  16                 'gsl_pow_2(3.14)'  => (3.14)**2,
  17                 'gsl_pow_2(3)'     => 3 ** 2,
  18                 'gsl_pow_2(0)'     => 0 ** 2,
  19                 'gsl_pow_2(-1)'    => (-1) ** 2,
  20                 'gsl_pow_3(4)'     => 4 ** 3,
  21                 'gsl_pow_4(5)'     => 5 ** 4,
  22                 'gsl_pow_5(6)'     => 6 ** 5,
  23                 'gsl_pow_6(7)'     => 7 ** 6,
  24                 'gsl_pow_7(8)'     => 8 ** 7,
  25                 'gsl_pow_8(-4)'    => (-4) ** 8,
  26                 'gsl_pow_9(4)'     => 4 ** 9,
  27                 'gsl_pow_int(5,10)'=> 5 ** 10,
  28     );
  29     verify(\%results, 'Math::GSL::PowInt');
  30 }
  31
  32 sub TEST_NAN_INF : Tests {
  33     my $self = shift;
  34     $main::nan    = gsl_nan();
  35     $main::posinf = gsl_posinf();
  36     my %results = (
  37         q{gsl_pow_2($main::nan)}    => $main::nan,
  38         q{gsl_pow_2($main::posinf)} => $main::posinf,
  39     );
  40     verify(\%results,'Math::GSL::PowInt');
  41 }
  42
  43 Test::Class->runtests;