Will flatten the capture args in uri_for

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

diff --git a/t/aggregate/unit_core_action_for.t b/t/aggregate/unit_core_action_for.t
new file mode 100644 (file)
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');