Test for recent regression parsing Args()

[catagits/Catalyst-Runtime.git] / t / lib / TestAppArgsEmptyParens.pm

diff --git a/t/lib/TestAppArgsEmptyParens.pm b/t/lib/TestAppArgsEmptyParens.pm
new file mode 100644 (file)
index 0000000..051a850
--- /dev/null
+++ b/t/lib/TestAppArgsEmptyParens.pm
@@ -0,0 +1,21 @@
+package TestAppArgsEmptyParens::Controller::Root;
+use Moose;
+use MooseX::MethodAttributes;
+
+extends 'Catalyst::Controller';
+
+sub chain_base :Chained(/) PathPart('chain_base') CaptureArgs(0) { }
+
+    sub args        : Chained(chain_base) PathPart('args')       Args   { $_[1]->res->body('Args') }
+    sub args_empty  : Chained(chain_base) PathPart('args_empty') Args() { $_[1]->res->body('Args()') }
+
+TestAppArgsEmptyParens::Controller::Root->config(namespace=>'');
+
+package TestAppArgsEmptyParens;
+use Catalyst;
+use TestLogger;
+
+TestAppArgsEmptyParens->setup;
+TestAppArgsEmptyParens->log( TestLogger->new );
+
+1;