X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Farg_constraints.t;h=57e972b38e61a4c05dc8e00e7566e01f765c605c;hp=b753e218118e730955cbe862f72267c3535ba361;hb=480d94b5f34577816d44fe05389ca5a085179363;hpb=a82c96cf2bf688f97140bad7fd3979a531416a22

diff --git a/t/arg_constraints.t b/t/arg_constraints.t
index b753e21..57e972b 100644
--- a/t/arg_constraints.t
+++ b/t/arg_constraints.t
@@ -104,6 +104,12 @@ BEGIN {
 
     sub int_priority_chain :Chained(chain_base) PathPart('') Args(Int) { $_[1]->res->body('int_priority_chain') }
 
+    sub link_any :Chained(chain_base) PathPart('') CaptureArgs(1) { }
+
+      sub any_priority_link_any :Chained(link_any) PathPart('') Args(1) { $_[1]->res->body('any_priority_link_any') }
+
+      sub int_priority_link_any :Chained(link_any) PathPart('') Args(Int) { $_[1]->res->body('int_priority_link_any') }
+    
     sub link_int :Chained(chain_base) PathPart('') CaptureArgs(Int) { }
 
       sub any_priority_link :Chained(link_int) PathPart('') Args(1) { $_[1]->res->body('any_priority_link') }
@@ -229,4 +235,14 @@ SKIP: {
   is $res->content, 'int_priority_chain', 'got expected';
 }
 
+{
+  my $res = request '/chain_base/cap1/a/arg';
+  is $res->content, 'any_priority_link_any';
+}
+
+{
+  my $res = request '/chain_base/cap1/a/102';
+  is $res->content, 'int_priority_link_any';
+}
+
 done_testing;