added test for custom Mojolicious::Lite keyword

mojolicious · Dec 20, 2012 · 5029e41 · 5029e41
1 parent 7af5a5a
commit 5029e41
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/t/mojolicious/layouted_lite_app.t b/t/mojolicious/layouted_lite_app.t
@@ -12,6 +12,7 @@ use FindBin;
 use lib "$FindBin::Bin/lib";
 
 use Mojolicious::Lite;
+use LiteTestKeyword;
 use Test::Mojo;
 
 # Plugin with a template
@@ -22,8 +23,8 @@ app->renderer->paths->[0] = app->home->rel_dir('does_not_exist');
 # Default layout for whole application
 app->defaults(layout => 'default');
 
-# GET /works
-get '/works';
+# GET /works (custom keyword)
+test_keyword '/works';
 
 # GET /doenotexist
 get '/doesnotexist';

diff --git a/t/mojolicious/lib/LiteTestKeyword.pm b/t/mojolicious/lib/LiteTestKeyword.pm
@@ -0,0 +1,11 @@
+package LiteTestKeyword;
+use Mojo::Base -base;
+
+use Mojo::Util 'monkey_patch';
+
+sub import {
+  my $caller = caller;
+  monkey_patch $caller, 'test_keyword', sub { $caller->app->routes->get(@_) };
+}
+
+1;