#!/usr/bin/perl -w
use strict;
use Test::More tests => 5;
use Test::Exception;
use File::Basename;
use File::Spec::Functions;
use Path::Class;
use lib "../lib";
use_ok("Devel::PerlySense");
BEGIN { -d "t" and chdir("t"); }
{
local @INC = (@INC, "data/inc-lib");
{
ok(my $oPs = Devel::PerlySense->new(), "new ok");
my $dirData = "data/simple-lib/lib";
my $dirOrigin = $dirData;
my $nameModule = "Game::Event::Timed";
my $fileModuleTarget = catfile("Game", "Event", "Timed.pm");
like(
$oPs->fileFindModule(nameModule => $nameModule, dirOrigin => $dirOrigin),
qr/ \Q$fileModuleTarget\E $/x,
"Found file downwards before \@INC ok",
);
}
{
ok(my $oPs = Devel::PerlySense->new(), "new ok");
my $dirData = file("data/inc-lib")->absolute . "";
my $dirOrigin = "/";
my $nameModule = "Game::Event::Timed";
my $fileModuleTarget = catfile($dirData, "Game", "Event", "Timed.pm");
like(
$oPs->fileFindModule(nameModule => $nameModule, dirOrigin => $dirOrigin),
qr/ \Q$fileModuleTarget\E $/x,
"Found file in inc ok",
);
}
}
__END__