X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02git_util.t;h=428677d20b66299b94e92154c2b478ec5a096993;hb=5e26dc93f7d8f6b3a9df80f69b3cc5f3f477f8be;hp=30d12c895ea26c585c2775f34c2085860a6bcbc9;hpb=defb00507bcbbeac12e89d5bcfd4eaa18e9e7bd0;p=catagits%2FGitalist.git diff --git a/t/02git_util.t b/t/02git_util.t index 30d12c8..428677d 100644 --- a/t/02git_util.t +++ b/t/02git_util.t @@ -1,25 +1,32 @@ +use FindBin qw/$Bin/; +BEGIN { + my $env = "$FindBin::Bin/../script/env"; + if (-r $env) { + do $env or die $@; + } +} + use strict; use warnings; -use FindBin qw/$Bin/; use Test::More; use Data::Dumper; BEGIN { use_ok 'Gitalist::Git::Util'; - use_ok 'Gitalist::Git::Project'; + use_ok 'Gitalist::Git::Repository'; } use Path::Class; my $gitdir = dir("$Bin/lib/repositories/repo1"); -my $proj = Gitalist::Git::Project->new($gitdir); +my $proj = Gitalist::Git::Repository->new($gitdir); my $util = Gitalist::Git::Util->new( - project => $proj, + repository => $proj, ); isa_ok($util, 'Gitalist::Git::Util'); -like( $util->_git, qr#/git$#, 'git binary found'); +like( $util->_git, qr#\bgit(\.\w+)*$#, 'git binary found'); isa_ok($util->gpp, 'Git::PurePerl', 'gpp instance created'); done_testing;