more diverse command tests

mojolicious · Jan 16, 2015 · d35a1de · d35a1de
1 parent 45508b4
commit d35a1de
Showing 1 changed file with 13 additions and 4 deletions.
diff --git a/t/mojolicious/commands.t b/t/mojolicious/commands.t
@@ -100,10 +100,10 @@ $buffer = '';
 {
   open my $handle, '>', \$buffer;
   local *STDOUT = $handle;
-  $commands->run('generate', 'lite_app', '-h');
+  $commands->run('generate', 'app', '-h');
 }
-like $buffer, qr/Usage: APPLICATION generate lite_app \[NAME\]/,
-  'right output';
+like $buffer, qr/Usage: APPLICATION generate app \[NAME\]/, 'right output';
+$buffer = '';
 {
   open my $handle, '>', \$buffer;
   local *STDOUT = $handle;
@@ -234,12 +234,21 @@ my $routes = Mojolicious::Command::routes->new;
 ok $routes->description, 'has a description';
 like $routes->usage, qr/routes/, 'has usage information';
 $buffer = '';
+{
+  open my $handle, '>', \$buffer;
+  local *STDOUT = $handle;
+  $routes->run;
+}
+like $buffer,   qr!/\*whatever!, 'right output';
+unlike $buffer, qr!/\(\.\+\)\?!, 'not verbose';
+$buffer = '';
 {
   open my $handle, '>', \$buffer;
   local *STDOUT = $handle;
   $routes->run('-v');
 }
-like $buffer, qr!/\*whatever.*\Q/(.+)?\E!, 'right output';
+like $buffer, qr!/\*whatever!, 'right output';
+like $buffer, qr!/\(\.\+\)\?!, 'verbose';
 
 # test
 require Mojolicious::Command::test;