#!c:\perl\bin\perl
use strict;
use warnings;
use Math::BigInt;
use Data::Dumper;
use Test::More qw(no_plan);
    
    
my %index_val = ( A => 2,
                  C => 3,
                  D => 4,
                  N => 2,
                  M => 2,
                  T => 1,
                  G => 4);

my $sequence       = "ACTGACN";
my $distance_index = 3;
my $window         = 2;

my $arr_ref = alpha_index({ sequence => $sequence,
                           distance => $distance_index,
                           aa_index => \%index_val,
                           window_size => $window });
ok($arr_ref);
diag("Testing alpha_index with window: $window, distance: $distance_index, sequence: $sequence");
is(ref($arr_ref),'ARRAY','alpha index returned an array');
is(@$arr_ref,7,'7 entries are in the array');
is($arr_ref->[0]{A},2.51025682971601);