#!/usr/bin/perl -w
use strict;
use Test::More tests => 5;
use Test::Exception;
use Data::Dumper;
use lib ("lib", "../lib");
use Devel::PerlySense::Util::Log;
use_ok("Devel::PerlySense::Project");
use_ok("Devel::PerlySense");
BEGIN { -d "t" and chdir("t"); }
ok(
my $oPerlySense = Devel::PerlySense->new(),
"New PerlySense object ok",
);
my $dirBase = "data/project/with-git/source";
my $dirProject = "$dirBase/bogus";
my $fileTest = "$dirProject/t/Game-Lawn.t";
ok($oPerlySense->setFindProject(file => $fileTest), "Set project ok");
my $oProject = $oPerlySense->oProject;
TODO: {
local $TODO = "
Can't find a Git repo if it's inside a SVN repo,
but that's perfectly ok";
is($oProject->nameVcs, "git", "Found vcs 'git'");
}
__END__