view release on metacpan or  search on metacpan

inc/ExtUtils/testlib.pm  view on Meta::CPAN

# So the tests can chdir around and not break @INC.
# We use getcwd() because otherwise rel2abs will blow up under taint
# mode pre-5.8.  We detaint is so @INC won't be tainted.  This is
# no worse, and probably better, than just shoving an untainted, 
# relative "blib/lib" onto @INC.
my $cwd;
BEGIN {
    ($cwd) = getcwd() =~ /(.*)/;
}
use lib map { File::Spec->rel2abs($_, $cwd) } qw(blib/arch blib/lib);
1;
__END__

t/02_pp_impl.t  view on Meta::CPAN

use strict;
use warnings;

use ExtUtils::testlib;
use FindBin;
use List::MoreUtils qw/zip/;
use Test::More;
use Test::Exception;

use lib $FindBin::Bin; # for Algorithm::NaiveKmeans

use Algorithm::KernelKMeans::PP;
use Algorithm::KernelKMeans::Util qw/generate_polynominal_kernel/;
use Algorithm::NaiveKMeans;

diag 'This test may take some minutes';

open my $vectors , '<', "$FindBin::Bin/vectors.txt" or die $!;
my @vertices = map {
  my @vals = split /\s+/;