test localized Getopt::Long configuration

mojolicious · Jan 26, 2013 · 7af0b1f · 7af0b1f
1 parent d549c7f
commit 7af0b1f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/t/mojolicious/app.t b/t/mojolicious/app.t
@@ -48,6 +48,9 @@ is $t->app->static->file('hello.txt')->slurp,
   "Hello Mojo from a development static file!\n", 'right content';
 is $t->app->moniker, 'mojolicious_test', 'right moniker';
 
+# MojoliciousTest::Command::test_command (with abbreviation)
+is $t->app->start(qw(test_command --to)), 'works too!', 'right result';
+
 # Plugin::Test::SomePlugin2::register (security violation)
 $t->get_ok('/plugin-test-some_plugin2/register')->status_isnt(500)
   ->status_is(404)->header_is(Server => 'Mojolicious (Perl)')

diff --git a/t/mojolicious/lib/MojoliciousTest/Command/test_command.pm b/t/mojolicious/lib/MojoliciousTest/Command/test_command.pm
@@ -1,6 +1,12 @@
 package MojoliciousTest::Command::test_command;
 use Mojo::Base 'Mojolicious::Command';
 
-sub run { return 'works!' }
+use Getopt::Long 'GetOptionsFromArray';
+
+sub run {
+  my ($self, @args) = @_;
+  GetOptionsFromArray \@args, 'too' => \my $too;
+  return $too ? 'works too!' : 'works!';
+}
 
 1;