[carton] 236/472: Add test for help

[Lucas Kanashiro]

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 <miyagawa at bulknews.net>
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