From 4fb5cc2c7b4f6c5a4a7d582a6c5a78f16de41b7d Mon Sep 17 00:00:00 2001
From: Jonathan Leto <jonathan@leto.net>
Date: Tue, 5 Aug 2008 23:51:30 -0700
Subject: [PATCH] Spline tests.

---
 MANIFEST                    |  6 +++++-
 lib/Math/GSL/Spline/Test.pm | 38 +++++++++++++++++++++++++++++++++++++
 t/Spline.t                  |  3 +++
 3 files changed, 46 insertions(+), 1 deletion(-)
 create mode 100644 lib/Math/GSL/Spline/Test.pm
 create mode 100644 t/Spline.t

diff --git a/MANIFEST b/MANIFEST
index b4fd693..b2f0cf1 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -33,7 +33,7 @@ examples/sf/bessel
 examples/sf/bessel.png
 examples/sf/plot_bessel.gnuplot
 examples/sf/README
-examples/tkgraphdataset
+examples/tkplotdataset
 FFT.i
 FFT_wrap.c
 Fit.i
@@ -105,6 +105,7 @@ lib/Math/GSL/Multifit/Test.pm
 lib/Math/GSL/Multimin.pm
 lib/Math/GSL/Multiroots.pm
 lib/Math/GSL/NTuple.pm
+lib/Math/GSL/NTuple/Test.pm
 lib/Math/GSL/ODEIV.pm
 lib/Math/GSL/ODEIV/Test.pm
 lib/Math/GSL/Permutation.pm
@@ -126,6 +127,7 @@ lib/Math/GSL/Siman.pm
 lib/Math/GSL/Sort.pm
 lib/Math/GSL/Sort/Test.pm
 lib/Math/GSL/Spline.pm
+lib/Math/GSL/Spline/Test.pm
 lib/Math/GSL/Statistics.pm
 lib/Math/GSL/Sum.pm
 lib/Math/GSL/Sum/Test.pm
@@ -218,6 +220,7 @@ t/Machine.t
 t/Matrix.t
 t/Min.t
 t/Multifit.t
+t/NTuple.t
 t/ODEIV.t
 t/Permutation.t
 t/Poly.t
@@ -228,6 +231,7 @@ t/RNG.t
 t/Roots.t
 t/SF.t
 t/Sort.t
+t/Spline.t
 t/Sum.t
 t/Sys.t
 t/Vector.t
diff --git a/lib/Math/GSL/Spline/Test.pm b/lib/Math/GSL/Spline/Test.pm
new file mode 100644
index 0000000..32d505e
--- /dev/null
+++ b/lib/Math/GSL/Spline/Test.pm
@@ -0,0 +1,38 @@
+package Math::GSL::Spline::Test;
+use base 'Test::Class';
+use Test::More 'no_plan';
+use Math::GSL qw/:all/;
+use Math::GSL::Spline qw/:all/;
+use Math::GSL::Errno qw/:all/;
+use Math::GSL::Interp qw/:all/;
+use Test::Exception;
+use Data::Dumper;
+use strict;
+use warnings;
+
+BEGIN{ gsl_set_error_handler_off() };
+
+sub make_fixture : Test(setup) {
+    my $self = shift;
+    $self->{spline} = gsl_spline_alloc($gsl_interp_linear,100);
+}
+
+sub teardown : Test(teardown) {
+}
+sub TEST_FREE : Test {
+    my $self = shift;
+    gsl_spline_free($self->{spline});
+    ok(!$@ && !$! && !$?,'gsl_spline_free');
+}
+sub TEST_ALLOC : Tests {
+    isa_ok(gsl_spline_alloc($_,100), 'Math::GSL::Spline') for (
+               $gsl_interp_linear,
+               $gsl_interp_polynomial,
+               $gsl_interp_cspline,
+               $gsl_interp_cspline_periodic,
+               $gsl_interp_akima,
+               $gsl_interp_akima_periodic);
+}
+
+
+1;
diff --git a/t/Spline.t b/t/Spline.t
new file mode 100644
index 0000000..ddb1f39
--- /dev/null
+++ b/t/Spline.t
@@ -0,0 +1,3 @@
+use Math::GSL::Spline::Test;
+Test::Class->runtests;
+