added Catalyst::Component->action_for

[catagits/Catalyst-Runtime.git] / t / unit_core_action_for.t

diff --git a/t/unit_core_action_for.t b/t/unit_core_action_for.t
new file mode 100644 (file)
index 0000000..71772f8
--- /dev/null
+++ b/t/unit_core_action_for.t
@@ -0,0 +1,20 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More;
+
+plan tests => 3;
+
+use_ok('TestApp');
+
+is(TestApp->action_for('global_action')->code, TestApp->can('global_action'),
+   'action_for on appclass ok');
+
+is(TestApp->controller('Args')->action_for('args')->code,
+   TestApp::Controller::Args->can('args'),
+   'action_for on controller ok');