use Cwd (); # cwd
use File::Spec (); # catdir
-use Test::More tests => 43;
+use Test::More tests => 44;
use App::Rgit;
local $SIG{__WARN__} = sub { die @_ };
my $res = eval {
- App::Rgit->new()
+ local $ENV{GIT_DIR};
+ App::Rgit->new();
};
-is $@, '', "App::Rgit->new(): no root: doesn't croak";
-is $res, undef, 'App::Rgit->new(): no root: returns undef';
+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();
+};
+is $@, '', "App::Rgit->new(): no root: doesn't croak";
+isa_ok $res, 'App::Rgit', 'App::Rgit->new(): no root: returns object';
$res = eval {
App::Rgit->new(
root => $0,
);
};
-is $@, '', "App::Rgit->new(): wrong root: doesn't croak";
-is $res, undef, 'App::Rgit->new(): wrong root: returns undef';
+like $@, qr/Invalid root directory/, 'App::Rgit->new(): wrong root: croaks';
$res = eval {
local $ENV{GIT_EXEC_PATH};