]> git.vpit.fr Git - perl/modules/rgit.git/commitdiff
Set the 'git' option when we test for the 'root'
authorVincent Pit <vince@profvince.com>
Wed, 24 Feb 2010 19:16:36 +0000 (20:16 +0100)
committerVincent Pit <vince@profvince.com>
Wed, 24 Feb 2010 19:16:36 +0000 (20:16 +0100)
t/15-failures.t

index cf6568b871b5787ad0f4240d959a0866b86daba7..ea9881babb73b6fdd3eefe6c1c658e5c33462cdf 100644 (file)
@@ -14,14 +14,18 @@ local $SIG{__WARN__} = sub { die @_ };
 
 my $res = eval {
  local $ENV{GIT_DIR};
- App::Rgit->new();
+ App::Rgit->new(
+  git => 't/bin/git',
+ );
 };
 is     $@,  '',         "App::Rgit->new(): no root, no GIT_DIR: doesn't croak";
 isa_ok $res,'App::Rgit','App::Rgit->new(): no root, no GIT_DIR: returns object';
 
 $res = eval {
  local $ENV{GIT_DIR} = Cwd::cwd;
- App::Rgit->new();
+ App::Rgit->new(
+  git => 't/bin/git',
+ );
 };
 is     $@,   '',          "App::Rgit->new(): no root: doesn't croak";
 isa_ok $res, 'App::Rgit', 'App::Rgit->new(): no root: returns object';
@@ -29,6 +33,7 @@ isa_ok $res, 'App::Rgit', 'App::Rgit->new(): no root: returns object';
 $res = eval {
  App::Rgit->new(
   root => $0,
+  git  => 't/bin/git',
  );
 };
 like $@, qr/Invalid root directory/, 'App::Rgit->new(): wrong root: croaks';