use Cwd qw/cwd/;
use File::Spec::Functions qw/catdir/;
-use Test::More tests => 45;
+use Test::More tests => 42;
use App::Rgit;
local $SIG{__WARN__} = sub { die @_ };
-eval { App::Rgit->new(qw/foo bar baz/) };
-like($@, qr!Optional\s+arguments\s+must\s+be\s+passed\s+as\s+keys?\s*/\s*values?\s+pairs?!, 'App::Rgit->new(even): croaks');
-
my $res = eval { App::Rgit->new() };
is($@, '', 'App::Rgit->new(): no root: does not croak');
is($res, undef, 'App::Rgit->new(): no root: returns undef');
is($@, '', '$ar->new(): no args: does not croak');
isa_ok($res, 'App::Rgit', '$ar->new(): no args: returns an object');
-$res = eval { App::Rgit::new(undef, root => 't', git => 't/bin/git', cmd => 'version'); };
-is($@, '', 'undef->App::Rgit::new(): no args: does not croak');
-isa_ok($res, 'App::Rgit','undef->App::Rgit::new(): no args: returns an object');
-
use App::Rgit::Command;
eval { App::Rgit::Command::Once->App::Rgit::Command::new(cmd => 'dongs') };