trunk/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 {
  11     my $gsl = Math::GSL->new;
  12     my $results = {
  13                 'Math::GSL::PowInt::gsl_pow_2(3)'=>  3 ** 2,
  14                 'Math::GSL::PowInt::gsl_pow_3(4)'=>  4 ** 3,
  15                 'Math::GSL::PowInt::gsl_pow_4(5)'=>  5 ** 4,
  16                 'Math::GSL::PowInt::gsl_pow_5(6)'=>  6 ** 5,
  17               };
  18
  19     $gsl->verify_results($results);
  20 }
  21