package Math::GSL::DHT::Test;
use base q{Test::Class};
use Test::More tests => 7;
use Math::GSL        qw/:all/;
use Math::GSL::DHT   qw/:all/;
use Math::GSL::Errno qw/:all/;
use Math::GSL::Test  qw/:all/;
use Data::Dumper;
use strict;

BEGIN { gsl_set_error_handler_off(); }

sub make_fixture : Test(setup) {
}

sub teardown : Test(teardown) {
}

sub GSL_DHT_ALLOC_FREE : Tests {
    my $dht = gsl_dht_alloc(5);
    isa_ok($dht, 'Math::GSL::DHT');
    gsl_dht_free($dht);
    ok(!$@, 'gsl_dht_free');
}

sub DHT_NEW : Tests {
    my $dht = gsl_dht_new(128, 1.0, 20);
    isa_ok($dht, 'Math::GSL::DHT' );
}

sub DHT_SAMPLE_APPLY : Tests { 
    my $f_in  = [(0) x 128 ];
    my $f_out = [(0) x 128 ];
    my $dht = gsl_dht_new(128, 1.0, 20);

    for my $n (0..127) {
            my $x = gsl_dht_x_sample($dht, $n);
            $f_in->[$n] = exp(-$x);
    }
    ok( $#$f_in = 127, 'gsl_dht_x_sample' ); 

    ok_status( gsl_dht_apply($dht, $f_in, $f_out));
    ok( $#$f_out = 127, 'gsl_dht_apply' ); 

    local $TODO = 'need a typemap for $f_in and $f_out';
    # check that the relative error at most 2%
    ok(
        is_similar_relative ($f_out->[0], 0.181, 0.02), 
        "gsl_dht_apply output @{[$f_out->[0]]} != 0.181"
    );
}

Test::Class->runtests;