+
+$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');
+
+$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');
+
+$res = eval { App::Rgit::Command->action() };
+is($@, '', 'App::Rgit::Command->action(): no cmd: does not croak');
+is($res, undef, 'App::Rgit::Command->action(); no cmd: returns undef');
+
+$res = eval { App::Rgit::Command::action() };
+is($@, '', 'undef->App::Rgit::Command::action(): no cmd: does not croak');
+is($res, undef, 'undef->App::Rgit::Command::action(); no cmd: returns undef');
+
+$res = bless { }, 'App::Rgit::Test::Monkey';
+$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');