This is an automated email from the git hooks/post-receive script. kanashiro-guest pushed a commit to branch master in repository carton.
commit 2e59b05ef13140b27d64db7330234c4aa6c9079e Author: Tatsuhiko Miyagawa <[email protected]> Date: Sat Jun 1 13:28:13 2013 +0900 Add test for help --- xt/cli/help.t | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) diff --git a/xt/cli/help.t b/xt/cli/help.t new file mode 100644 index 0000000..f2e1293 --- /dev/null +++ b/xt/cli/help.t @@ -0,0 +1,25 @@ +use strict; +use Test::More; +use xt::CLI; + +{ + my $app = cli(); + $app->run("help"); + like $app->system_output, qr/Carton - Perl module/; + + $app->run("-h"); + like $app->system_output, qr/Carton - Perl module/; + + $app->run("help", "install"); + like $app->system_output, qr/Install the dependencies/; + + $app->run("install", "-h"); + like $app->system_output, qr/Install the dependencies/; + + $app->run("help", "foobarbaz"); + is $app->system_output, ''; + like $app->system_error, qr/No documentation found/; +} + +done_testing; + -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/carton.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
