t/PowInt.t

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