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;