better tests for usage messages

mojolicious · Jan 25, 2014 · a0ff4da · a0ff4da
1 parent 30f8a4c
commit a0ff4da
Showing 1 changed file with 16 additions and 16 deletions.
diff --git a/t/mojolicious/commands.t b/t/mojolicious/commands.t
@@ -59,96 +59,96 @@ is $app->start('test_command'), 'works!', 'right result';
 require Mojolicious::Command::cgi;
 my $cgi = Mojolicious::Command::cgi->new;
 ok $cgi->description, 'has a description';
-ok $cgi->usage,       'has usage information';
+like $cgi->usage, qr/cgi/, 'has usage information';
 
 # cpanify
 require Mojolicious::Command::cpanify;
 my $cpanify = Mojolicious::Command::cpanify->new;
 ok $cpanify->description, 'has a description';
-ok $cpanify->usage,       'has usage information';
+like $cpanify->usage, qr/cpanify/, 'has usage information';
 
 # daemon
 require Mojolicious::Command::daemon;
 my $daemon = Mojolicious::Command::daemon->new;
 ok $daemon->description, 'has a description';
-ok $daemon->usage,       'has usage information';
+like $daemon->usage, qr/daemon/, 'has usage information';
 
 # eval
 require Mojolicious::Command::eval;
 my $eval = Mojolicious::Command::eval->new;
 ok $eval->description, 'has a description';
-ok $eval->usage,       'has usage information';
+like $eval->usage, qr/eval/, 'has usage information';
 
 # generate
 require Mojolicious::Command::generate;
 my $generator = Mojolicious::Command::generate->new;
 ok $generator->description, 'has a description';
-ok $generator->usage,       'has usage information';
+like $generator->usage, qr/generate/, 'has usage information';
 
 # generate app
 require Mojolicious::Command::generate::app;
 $app = Mojolicious::Command::generate::app->new;
 ok $app->description, 'has a description';
-ok $app->usage,       'has usage information';
+like $app->usage, qr/app/, 'has usage information';
 
 # generate lite_app
 require Mojolicious::Command::generate::lite_app;
 $app = Mojolicious::Command::generate::lite_app->new;
 ok $app->description, 'has a description';
-ok $app->usage,       'has usage information';
+like $app->usage, qr/lite_app/, 'has usage information';
 
 # generate makefile
 require Mojolicious::Command::generate::makefile;
 my $makefile = Mojolicious::Command::generate::makefile->new;
 ok $makefile->description, 'has a description';
-ok $makefile->usage,       'has usage information';
+like $makefile->usage, qr/makefile/, 'has usage information';
 
 # generate plugin
 require Mojolicious::Command::generate::plugin;
 my $plugin = Mojolicious::Command::generate::plugin->new;
 ok $plugin->description, 'has a description';
-ok $plugin->usage,       'has usage information';
+like $plugin->usage, qr/plugin/, 'has usage information';
 
 # get
 require Mojolicious::Command::get;
 my $get = Mojolicious::Command::get->new;
 ok $get->description, 'has a description';
-ok $get->usage,       'has usage information';
+like $get->usage, qr/get/, 'has usage information';
 
 # inflate
 require Mojolicious::Command::inflate;
 my $inflate = Mojolicious::Command::inflate->new;
 ok $inflate->description, 'has a description';
-ok $inflate->usage,       'has usage information';
+like $inflate->usage, qr/inflate/, 'has usage information';
 
 # prefork
 require Mojolicious::Command::prefork;
 my $prefork = Mojolicious::Command::prefork->new;
 ok $prefork->description, 'has a description';
-ok $prefork->usage,       'has usage information';
+like $prefork->usage, qr/prefork/, 'has usage information';
 
 # psgi
 require Mojolicious::Command::psgi;
 my $psgi = Mojolicious::Command::psgi->new;
 ok $psgi->description, 'has a description';
-ok $psgi->usage,       'has usage information';
+like $psgi->usage, qr/psgi/, 'has usage information';
 
 # routes
 require Mojolicious::Command::routes;
 my $routes = Mojolicious::Command::routes->new;
 ok $routes->description, 'has a description';
-ok $routes->usage,       'has usage information';
+like $routes->usage, qr/routes/, 'has usage information';
 
 # test
 require Mojolicious::Command::test;
 my $test = Mojolicious::Command::test->new;
 ok $test->description, 'has a description';
-ok $test->usage,       'has usage information';
+like $test->usage, qr/test/, 'has usage information';
 
 # version
 require Mojolicious::Command::version;
 my $version = Mojolicious::Command::version->new;
 ok $version->description, 'has a description';
-ok $version->usage,       'has usage information';
+like $version->usage, qr/version/, 'has usage information';
 
 done_testing();