From 6f81a99655b4187016166f89a63541739cafe3ff Mon Sep 17 00:00:00 2001
From: Thierry Moisan <thierry.moisan@gmail.com>
Date: Mon, 4 Aug 2008 10:19:23 -0400
Subject: [PATCH] Adding a test and typemap for NTuple but it fails at the
 moment.

---
 NTuple.i                    |  3 +++
 gsl_typemaps.i              |  1 +
 lib/Math/GSL/NTuple/Test.pm | 22 ++++++++++++++++++++++
 t/NTuple.t                  |  2 ++
 4 files changed, 28 insertions(+)
 create mode 100644 lib/Math/GSL/NTuple/Test.pm
 create mode 100644 t/NTuple.t

diff --git a/NTuple.i b/NTuple.i
index f933da9..db73d09 100644
--- a/NTuple.i
+++ b/NTuple.i
@@ -1,4 +1,7 @@
 %module "Math::GSL::NTuple"
+%include "typemaps.i"
+%include "gsl_typemaps.i"
+
 %{
     #include "gsl/gsl_ntuple.h"
 %}
diff --git a/gsl_typemaps.i b/gsl_typemaps.i
index 7ac0e42..27ca383 100644
--- a/gsl_typemaps.i
+++ b/gsl_typemaps.i
@@ -26,4 +26,5 @@
 %apply double const [] { double * base, const double * base};
 %apply double const [] { const double xrange[], const double yrange[] };
 %apply double const [] { const double * array };
+%apply double const [] { void * ntuple_data };
 
diff --git a/lib/Math/GSL/NTuple/Test.pm b/lib/Math/GSL/NTuple/Test.pm
new file mode 100644
index 0000000..99a54c5
--- /dev/null
+++ b/lib/Math/GSL/NTuple/Test.pm
@@ -0,0 +1,22 @@
+package Math::GSL::NTuple::Test;
+use base q{Test::Class};
+use Test::More;
+use Math::GSL::NTuple qw/:all/; 
+use Math::GSL qw/:all/;
+use Data::Dumper;
+use strict;
+
+sub make_fixture : Test(setup) {
+}
+
+sub teardown : Test(teardown) {
+    unlink 'ntuple' if -f 'ntuple';
+}
+
+sub GSL_NTUPLE_CREATE : Tests {
+  my $ntuple = gsl_ntuple_create('ntuple', [1,2,3],12);
+  print Dumper [ $ntuple ];
+  isa_ok ($ntuple, 'Math::GSL::NTuple::gsl_ntuple');
+}
+
+1;
diff --git a/t/NTuple.t b/t/NTuple.t
new file mode 100644
index 0000000..1a0450f
--- /dev/null
+++ b/t/NTuple.t
@@ -0,0 +1,2 @@
+use Math::GSL::NTuple::Test;
+Test::Class->runtests;
-- 
2.11.4.GIT