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=62571ceebe50bd83f05d2ee1626db31e19aeef15;hp=a5c5c1c8c0339e946d6b38e4ebda5e27be06bbc5;hb=677c155cd86bbbea0cbe6a9b40a9b4c24b89ee9d;hpb=bf4f16438595386223595dd82ecde9efe8aca8fe

diff --git a/t/arg_constraints.t b/t/arg_constraints.t
index a5c5c1c..62571ce 100644
--- a/t/arg_constraints.t
+++ b/t/arg_constraints.t
@@ -121,12 +121,18 @@ BEGIN {
 
       sub int_priority_link :Chained(link_int) PathPart('') Args(Int) { $_[1]->res->body('int_priority_link') }
 
-    sub link_int_int :Chained(chain_base) PathPart('') CaptureArgs(Tuple[Int,Int]) { }
+    sub link_int_int :Chained(chain_base) PathPart('') CaptureArgs(Int,Int) { }
 
       sub any_priority_link2 :Chained(link_int_int) PathPart('') Args(1) { $_[1]->res->body('any_priority_link2') }
 
       sub int_priority_link2 :Chained(link_int_int) PathPart('') Args(Int) { $_[1]->res->body('int_priority_link2') }
 
+    sub link_tuple :Chained(chain_base) PathPart('') CaptureArgs(Tuple[Int,Int,Int]) { }
+
+      sub any_priority_link3 :Chained(link_tuple) PathPart('') Args(1) { $_[1]->res->body('any_priority_link3') }
+
+      sub int_priority_link3 :Chained(link_tuple) PathPart('') Args(Int) { $_[1]->res->body('int_priority_link3') }
+
 
   sub default :Default {
     my ($self, $c, $int) = @_;
@@ -276,6 +282,16 @@ SKIP: {
   is $res->content, 'default';
 }
 
+{
+  my $res = request '/chain_base/100/100/100/100/100';
+  is $res->content, 'int_priority_link3';
+}
+
+{
+  my $res = request '/chain_base/100/ss/100/100/100';
+  is $res->content, 'default';
+}
+
 #{
   # URI testing
   #my ($res, $c) = ctx_request '/';