X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Funit_core_action_for.t;fp=t%2Faggregate%2Funit_core_action_for.t;h=c0af9d3caf13acb85be1d42924af0f76590f64e0;hb=4a41d5d1ec3187cc41e15767b21c14b2aee31740;hp=0000000000000000000000000000000000000000;hpb=2757db2c7c600c8a0b8e2b4366f38c97804c2844;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/unit_core_action_for.t b/t/aggregate/unit_core_action_for.t
new file mode 100644
index 0000000..c0af9d3
--- /dev/null
+++ b/t/aggregate/unit_core_action_for.t
@@ -0,0 +1,23 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use Test::More;
+
+plan tests => 4;
+
+use_ok('TestApp');
+
+is(TestApp->action_for('global_action')->code, TestApp::Controller::Root->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');
+   is(TestApp->controller('Args')->action_for('args').'',
+      'args/args',
+      'action stringifies');