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

diff --git a/t/arg_constraints.t b/t/arg_constraints.t
index 62571ce..cfd4f09 100644
--- a/t/arg_constraints.t
+++ b/t/arg_constraints.t
@@ -133,6 +133,9 @@ BEGIN {
 
       sub int_priority_link3 :Chained(link_tuple) PathPart('') Args(Int) { $_[1]->res->body('int_priority_link3') }
 
+      sub link2_int :Chained(link_tuple) PathPart('') CaptureArgs(UserId) { }
+
+        sub finally :Chained(link2_int) PathPart('') Args(Int) { $_[1]->res->body('finally') }
 
   sub default :Default {
     my ($self, $c, $int) = @_;
@@ -292,11 +295,23 @@ SKIP: {
   is $res->content, 'default';
 }
 
-#{
-  # URI testing
-  #my ($res, $c) = ctx_request '/';
+=over
 
+| /chain_base/*/*/*/*/*/*         | /chain_base (1)                    |
+|                                 | -> /link_tuple (3)                 |
+|                                 | -> /link2_int (1)                  |
+|                                 | => /finally (missing...)           |
 
-#}
+=cut
+
+{
+  # URI testing
+  my ($res, $c) = ctx_request '/';
+  ok my $url1 = $c->uri_for($c->controller('Root')->action_for('finally'), [1,2,3,4,5],6);
+  warn $url1;
+
+  ok my $url2 = $c->uri_for($c->controller('Root')->action_for('finally'), [1,2,3,4,5,6]);
+  warn $url2;
+}
 
 done_testing;