From 778cc407b806dfc54e58c5b5a0b11f7a13e70b01 Mon Sep 17 00:00:00 2001
From: Jonathan Leto <leto@polyglot.(none)>
Date: Tue, 13 May 2008 23:26:35 -0400
Subject: [PATCH] More Wavelet tests and cleanup.

---
 Wavelet.i                    |  6 ------
 lib/Math/GSL/Wavelet/Test.pm | 13 +++++++++++++
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/Wavelet.i b/Wavelet.i
index fe321e2..0edf8c2 100644
--- a/Wavelet.i
+++ b/Wavelet.i
@@ -10,10 +10,8 @@ typedef int size_t;
 %include "/usr/local/include/gsl/gsl_wavelet.h"
 
 %include "carrays.i"
-%include "cpointer.i"
 %include "typemaps.i"
 %array_functions(double, doubleArray);
-%pointer_functions(double, ptr);
 
 
 %perlcode %{
@@ -36,10 +34,6 @@ typedef int size_t;
     $gsl_wavelet_bspline_centered
 /;
 
-# int gsl_wavelet_transform_forward (const gsl_wavelet * w, double *data, 
-#                                   size_t stride, size_t n, gsl_wavelet_workspace * work);
-
-
 
 %EXPORT_TAGS = ( all        => [ @EXPORT_OK ], );
 
diff --git a/lib/Math/GSL/Wavelet/Test.pm b/lib/Math/GSL/Wavelet/Test.pm
index 6179cde..a215ad9 100644
--- a/lib/Math/GSL/Wavelet/Test.pm
+++ b/lib/Math/GSL/Wavelet/Test.pm
@@ -35,6 +35,19 @@ sub GSL_WAVELET_TRANSFORM_FORWARD : Tests {
     ok( !$status , 'gsl_wavelet_transform_forward' );
 }
 
+sub GSL_WAVELET_TRANSFORM_INVERSE : Tests { 
+    my $self = shift;
+
+    my $array = _double_array([0..255]);
+    my $status = gsl_wavelet_transform_inverse ($self->{wavelet},$array,1.0, 256, $self->{workspace} ); 
+    ok( !$status , 'gsl_wavelet_transform_inverse' );
+}
+
+sub GSL_WAVELET_NAME : Tests {
+    my $self = shift;
+    ok( gsl_wavelet_name($self->{wavelet}) eq 'daubechies', 'gsl_wavelet_name' );
+
+}
 sub _double_array {
     my ($vals) = @_;
     my $i=0;
-- 
2.11.4.GIT