From bc9ffa7c90d69b435cd938f9dec521fd3ae6f7be Mon Sep 17 00:00:00 2001
From: leto <leto@9d498b30-2ac1-dc11-b955-0002b3153201>
Date: Wed, 23 Apr 2008 08:20:22 +0000
Subject: [PATCH] add subsystems() and Fit subsystem

---
 trunk/Build.PL        |  2 +-
 trunk/Fit.i           |  4 ++--
 trunk/lib/Math/GSL.pm |  5 +++++
 trunk/t/00-load.t     |  4 ++--
 trunk/t/Fit.t         | 13 +++++++++++++
 5 files changed, 23 insertions(+), 5 deletions(-)
 create mode 100644 trunk/t/Fit.t

diff --git a/trunk/Build.PL b/trunk/Build.PL
index c99c505..8a3801d 100644
--- a/trunk/Build.PL
+++ b/trunk/Build.PL
@@ -360,7 +360,7 @@ my $builder = $class->new(
     },
     sign                  => 1,
     swig_source           => [  
-                                map { [ "$_.i" ] } qw/SF Randist Errno Machine/ 
+                                map { [ "$_.i" ] } qw/SF Randist Errno Machine Fit/ 
                              ],
 );
 
diff --git a/trunk/Fit.i b/trunk/Fit.i
index 8ff6903..3b177ef 100644
--- a/trunk/Fit.i
+++ b/trunk/Fit.i
@@ -1,7 +1,7 @@
 %module Fit
 %{
-#include "gsl/gsl_fit.h"
+#include "/usr/local/include/gsl/gsl_fit.h"
 %}
 
-%include "gsl/gsl_fit.h"
+%include "/usr/local/include/gsl/gsl_fit.h"
 
diff --git a/trunk/lib/Math/GSL.pm b/trunk/lib/Math/GSL.pm
index bf196e9..929fc38 100644
--- a/trunk/lib/Math/GSL.pm
+++ b/trunk/lib/Math/GSL.pm
@@ -92,6 +92,11 @@ sub new
     bless $this, $class;
 }
 
+sub subsystems
+{
+    return qw/ Errno Fit Machine Randist SF /;
+}
+
 sub verify_results
 {
     my ($self,$results,$eps) = @_;
diff --git a/trunk/t/00-load.t b/trunk/t/00-load.t
index 699ff3a..affa6a2 100644
--- a/trunk/t/00-load.t
+++ b/trunk/t/00-load.t
@@ -1,10 +1,10 @@
-use Test::More tests => 5;
+use Test::More tests => 6;
 use File::Fu;
 my $lib  = File::Fu->dir('..') + 'lib'; 
 
 BEGIN {
 	use_ok( 'Math::GSL' );
-    my @modules = map { use_ok("Math::GSL::$_") } qw/ Randist SF Errno Machine /;
+    map { use_ok("Math::GSL::$_") } Math::GSL->new->subsystems;
 }
 
 diag( "Testing Math::GSL " . $Math::GSL::VERSION . ", Perl $], $^X" );
diff --git a/trunk/t/Fit.t b/trunk/t/Fit.t
new file mode 100644
index 0000000..ab7e501
--- /dev/null
+++ b/trunk/t/Fit.t
@@ -0,0 +1,13 @@
+use Test::More tests=>1;
+use Math::GSL;
+use Math::GSL::Fit;
+use Data::Dumper;
+use strict;
+use warnings;
+
+
+# needs some more useful tests
+{
+    #RuntimeError Usage: gsl_fit_linear(x,xstride,y,ystride,n,c0,c1,cov00,cov01,cov11,sumsq);
+    Math::GSL::_assert_dies( sub { Math::GSL::Fit::gsl_fit_linear(0,0,0,0) } );
+}
-- 
2.11.4.GIT