[catagits/Gitalist.git] / t / git / util.t

use strict;
use warnings;
use FindBin qw/$Bin/;
use Test::More qw/no_plan/;

use Data::Dumper;

BEGIN { use_ok 'Gitalist::Git::Util' }

use Path::Class;
my $gitdir = dir("$Bin/../lib/repositories/repo1");

my $proj = Gitalist::Git::Util->new(
    gitdir => $gitdir,
);
isa_ok($proj, 'Gitalist::Git::Util');

like( $proj->_git, qr#/git$#, 'git binary found');
isa_ok($proj->_gpp, 'Git::PurePerl', 'gpp instance created');
is($proj->gitdir, $gitdir, 'repository path is set');
Commit	Line	Data
d1440e09	1	use strict;
	2	use warnings;
	3	use FindBin qw/$Bin/;
	4	use Test::More qw/no_plan/;
	5
	6	use Data::Dumper;
	7
	8	BEGIN { use_ok 'Gitalist::Git::Util' }
	9
	10	use Path::Class;
0a1bb426	11	my $gitdir = dir("$Bin/../lib/repositories/repo1");
0a1bb426	12
d1440e09	13	my $proj = Gitalist::Git::Util->new(
0a1bb426	14	gitdir => $gitdir,
d1440e09	15	);
	16	isa_ok($proj, 'Gitalist::Git::Util');
	17
	18	like( $proj->_git, qr#/git$#, 'git binary found');
	19	isa_ok($proj->_gpp, 'Git::PurePerl', 'gpp instance created');
0a1bb426	20	is($proj->gitdir, $gitdir, 'repository path is set');
d1440e09	21
	22
	23