1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
package Math::GSL::Wavelet::Test;
use base q{Test::Class};
use Test::More tests => 11;
use Math::GSL::Test qw/:all/;
use Math::GSL::Errno qw/:all/;
use Math::GSL::Wavelet qw/:all/;
use Scalar::Util qw/blessed/;
use Data::Dumper;
use strict;
BEGIN{ gsl_set_error_handler_off(); }
sub make_fixture : Test(setup) {
my $self = shift;
$self->{wavelet} = gsl_wavelet_alloc($gsl_wavelet_daubechies, 4);
$self->{workspace} = gsl_wavelet_workspace_alloc(256);
}
sub teardown : Test(teardown) {
my $self = shift;
gsl_wavelet_free($self->{wavelet});
gsl_wavelet_workspace_free($self->{workspace});
}
sub GSL_WAVELET_ALLOC_FREE : Tests {
my $self = shift;
isa_ok( $self->{wavelet}, 'Math::GSL::Wavelet', 'gsl_wavelet_alloc' );
isa_ok( $self->{workspace}, 'Math::GSL::Wavelet', 'gsl_wavelet_workspace_alloc' );
}
sub GSL_WAVELET_TYPES : Tests {
ok( blessed $gsl_wavelet_bspline );
ok( blessed $gsl_wavelet_bspline_centered );
ok( blessed $gsl_wavelet_haar );
ok( blessed $gsl_wavelet_haar_centered );
ok( blessed $gsl_wavelet_daubechies );
ok( blessed $gsl_wavelet_daubechies_centered);
}
sub GSL_WAVELET_TRANSFORM_FORWARD : Tests {
my $self = shift;
my $status = gsl_wavelet_transform_forward ($self->{wavelet},[0..255],
1.0, 256, $self->{workspace} );
ok( $status == $GSL_SUCCESS , 'gsl_wavelet_transform_forward' );
}
sub GSL_WAVELET_TRANSFORM_INVERSE : Tests {
my $self = shift;
my $status = gsl_wavelet_transform_inverse ($self->{wavelet},[0..255],1.0, 256, $self->{workspace} );
ok( $status == $GSL_SUCCESS , 'gsl_wavelet_transform_inverse' );
}
sub GSL_WAVELET_NAME : Tests {
my $self = shift;
ok( gsl_wavelet_name($self->{wavelet}) eq 'daubechies', 'gsl_wavelet_name' );
}
Test::Class->runtests;
|
