use strict;
use warnings;
-use Test::More tests => 30;
+use Test::More tests => 34;
use App::Rgit;
is($@, '', 'App::Rgit->new(): wrong root: does not croak');
is($res, undef, 'App::Rgit->new(): wrong root: returns undef');
-$res = eval { App::Rgit->new(root => 't/repos') };
+$res = eval { App::Rgit->new(root => 't') };
is($@, '', 'App::Rgit->new(): no git: does not croak');
is($res, undef, 'App::Rgit->new(): no git: returns undef');
-$res = eval { App::Rgit->new(root => 't/repos', git => $0) };
+$res = eval { App::Rgit->new(root => 't', git => $0) };
is($@, '', 'App::Rgit->new(): wrong git: does not croak');
is($res, undef, 'App::Rgit->new(): wrong git: returns undef');
-$res = eval { App::Rgit->new(root => 't/repos', git => 't/bin/git') };
+$res = eval { App::Rgit->new(root => 't', git => 't/bin/git') };
is($@, '', 'App::Rgit->new(): no cmd: does not croak');
isa_ok($res, 'App::Rgit', 'App::Rgit->new(): no cmd: returns an object');
-$res = eval { App::Rgit->new(root => 't/repos', git => 't/bin/git', cmd => 'version'); };
+$res = eval { App::Rgit->new(root => 't', git => 't/bin/git', cmd => 'version'); };
is($@, '', 'App::Rgit->new(): no args: does not croak');
isa_ok($res, 'App::Rgit', 'App::Rgit->new(): no args: returns an object');
-$res = eval { $res->new(root => 't/repos', git => 't/bin/git', cmd => 'version'); };
+$res = eval { $res->new(root => 't', git => 't/bin/git', cmd => 'version'); };
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/repos', git => 't/bin/git', cmd => 'version'); };
+$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');
$res = eval { App::Rgit::Command->action('version') };
is($@, '', 'App::Rgit::Command->action("version"): does not croak');
-is($res, 'App::Rgit::Command::Once', 'App::Rgit::Command->action("version"): returns valid object');
+is($res, 'App::Rgit::Command::Once', 'App::Rgit::Command->action("version"): returns valid answer');
$res = eval { App::Rgit::Command->new(cmd => 'version')->action() };
is($@, '', 'App::Rgit::Command->action(): does not croak');
-is($res, 'App::Rgit::Command::Once', 'App::Rgit::Command->action(): returns valid object');
+is($res, 'App::Rgit::Command::Once', 'App::Rgit::Command->action(): returns valid answer');
$res = eval { App::Rgit::Command->action() };
is($@, '', 'App::Rgit::Command->action(): no cmd: does not croak');
$res = eval { $res->App::Rgit::Command::action() };
is($@, '', 'App::Rgit::Test::Monkey->App::Rgit::Command::action(): no cmd: does not croak');
is($res, undef, 'App::Rgit::Test::Monkey->App::Rgit::Command::action(); no cmd: returns undef');
+
+$res = eval { App::Rgit::Command->action('beer' => 'App::Rgit::Test::Pub') };
+is($@, '', 'App::Rgit::Command->action("beer" => "App::Rgit::Test::Pub"): does not croak');
+is($res, 'App::Rgit::Test::Pub', 'App::Rgit::Command->action("beer" => "App::Rgit::Test::Pub"): returns valid answer');
+
+$res = eval { App::Rgit::Command->action('beer') };
+is($@, '', 'App::Rgit::Command->action("beer"): does not croak');
+is($res, 'App::Rgit::Test::Pub', 'App::Rgit::Command->action("beer"): returns valid answer');