use Test;
use Statistics::Basic qw(:all);

plan tests => 1;

$SIG{__WARN__} = sub { die " FATAL WARNING: $_[0] " };

my $v1 = vector(1 .. 5, undef, undef, 7);
my $v2 = vector(1 .. 4, undef, undef, 8, 7);
my @f = handle_missing($v1,$v2);

ok( correlation(@f), 1 );