t/PowInt.t

   1 use Test::More 'no_plan';
   2 use Math::GSL;
   3 use Math::GSL::Errno;
   4 use Math::GSL::PowInt;
   5 use Data::Dumper;
   6 use strict;
   7 use warnings;
   8
   9 {
  10     my $gsl = Math::GSL->new;
  11     my $results = {
  12                 'Math::GSL::PowInt::gsl_pow_2(3)'   =>      3 ** 2,
  13                 'Math::GSL::PowInt::gsl_pow_2(0)'   =>      0 ** 2,
  14                 'Math::GSL::PowInt::gsl_pow_2(-1)'  =>   (-1) ** 2,
  15                 'Math::GSL::PowInt::gsl_pow_3(4)'   =>      4 ** 3,
  16                 'Math::GSL::PowInt::gsl_pow_4(5)'   =>      5 ** 4,
  17                 'Math::GSL::PowInt::gsl_pow_5(6)'   =>      6 ** 5,
  18                 'Math::GSL::PowInt::gsl_pow_6(7)'   =>      7 ** 6,
  19                 'Math::GSL::PowInt::gsl_pow_7(8)'   =>      8 ** 7,
  20                 'Math::GSL::PowInt::gsl_pow_8(-4)'  =>   (-4) ** 8,
  21                 'Math::GSL::PowInt::gsl_pow_9(4)'   =>      4 ** 9,
  22               };
  23
  24     $gsl->verify_results($results);
  25 }
  26