### ----------------------------------------------------
### -- Algorithm::Evolutionary::Simple
### -- Licenses: Artistic-2.0
### -- Authors: JJ Merelo
### -- File: t/03-p-peaks.t
### ----------------------------------------------------
#!/usr/bin/env perl6

use v6;

use Test;

use Algorithm::Evolutionary::Fitness::P-Peaks;

my $length = 32;
my $number-of-peaks=100;

my $p-peaks = Algorithm::Evolutionary::Fitness::P-Peaks.new: number-of-peaks => $number-of-peaks, bits => $length;

cmp-ok $p-peaks, "~~", Algorithm::Evolutionary::Fitness::P-Peaks, "Correct object";

cmp-ok $p-peaks.peaks().elems, "==", $number-of-peaks, "Number of peaks correct";

cmp-ok $p-peaks.peaks[0].elems, "==", $length, "Length of peaks correct";

my @random-chromosome = Bool.pick xx $length ;

cmp-ok $p-peaks.distance( @random-chromosome), ">=", 0, "Distance computed";

done-testing;


