From 490a6e90505981e7d2fea557b800f542c63ae3fc Mon Sep 17 00:00:00 2001
From: Jonathan Leto <leto@polyglot.(none)>
Date: Thu, 24 Apr 2008 23:56:12 -0400
Subject: [PATCH] Adding support for the PowInt subsystem, as well making the
 verbosity of the test customizable by the $ENV{DEBUG} variable

---
 trunk/Build.PL        |  2 +-
 trunk/PowInt.i        |  4 ++--
 trunk/lib/Math/GSL.pm |  4 ++--
 trunk/t/PowInt.t      | 21 +++++++++++++++++++++
 4 files changed, 26 insertions(+), 5 deletions(-)
 create mode 100644 trunk/t/PowInt.t

diff --git a/trunk/Build.PL b/trunk/Build.PL
index 5f2f83b..0808673 100644
--- a/trunk/Build.PL
+++ b/trunk/Build.PL
@@ -362,7 +362,7 @@ my $builder = $class->new(
     sign                  => 1,
     swig_source           => [  
                                 map { [ "$_.i" ] } 
-                                qw/ CDF Deriv Errno Fit Machine Randist SF Types/ 
+                                qw/ CDF Deriv Errno Fit Machine PowInt Randist SF Types/ 
                              ],
 );
 
diff --git a/trunk/PowInt.i b/trunk/PowInt.i
index e6b121a..c112d02 100644
--- a/trunk/PowInt.i
+++ b/trunk/PowInt.i
@@ -1,7 +1,7 @@
 %module PowInt
 %{
-#include "gsl/gsl_pow_int.h"
+#include "/usr/local/include/gsl/gsl_pow_int.h"
 %}
 
-%include "gsl/gsl_pow_int.h"
+%include "/usr/local/include/gsl/gsl_pow_int.h"
 
diff --git a/trunk/lib/Math/GSL.pm b/trunk/lib/Math/GSL.pm
index cfadc27..0a520ea 100644
--- a/trunk/lib/Math/GSL.pm
+++ b/trunk/lib/Math/GSL.pm
@@ -94,7 +94,7 @@ sub new
 
 sub subsystems
 {
-    return qw/ CDF Errno Fit Machine Randist SF Types /;
+    return qw/ CDF Errno Fit Machine PowInt Randist SF Types /;
 }
 
 sub verify_results
@@ -103,7 +103,7 @@ sub verify_results
     $eps ||= 1e-8;
     while (my($k,$v)=each %$results){
         my $x = eval $k;
-        print "got $x for $k\n";
+        print "got $x for $k\n" if defined $ENV{DEBUG};
         if($x =~ /nan/i){
                 ok( $v eq $x, "'$v'?='$x'" );
         } else { 
diff --git a/trunk/t/PowInt.t b/trunk/t/PowInt.t
new file mode 100644
index 0000000..16f9edb
--- /dev/null
+++ b/trunk/t/PowInt.t
@@ -0,0 +1,21 @@
+use Test::More 'no_plan';
+use Math::GSL;
+use Math::GSL::Errno;
+use Math::GSL::PowInt;
+use Data::Dumper;
+use strict;
+use warnings;
+
+
+{
+    my $gsl = Math::GSL->new;
+    my $results = { 
+                'Math::GSL::PowInt::gsl_pow_2(3)'=>  3 ** 2,
+                'Math::GSL::PowInt::gsl_pow_3(4)'=>  4 ** 3,
+                'Math::GSL::PowInt::gsl_pow_4(5)'=>  5 ** 4,
+                'Math::GSL::PowInt::gsl_pow_5(6)'=>  6 ** 5,
+              };
+
+    $gsl->verify_results($results);
+}
+
-- 
2.11.4.GIT