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=1a5683492cb5e206f74811de7d1790ea1ca7047e;hp=86b5259c41b74d7cf2d2705b24762d4f595f8595;hb=4a0218caa0ae42d99aba2bd5f2d7bc7b9e06d7ba;hpb=d4e8996f78ef5491d37b2c072119080b06eccada

diff --git a/t/arg_constraints.t b/t/arg_constraints.t
index 86b5259..1a56834 100644
--- a/t/arg_constraints.t
+++ b/t/arg_constraints.t
@@ -14,10 +14,14 @@ use HTTP::Request::Common;
 
   sub an_int :Local Args(Int) {
     my ($self, $c, $int) = @_;
-    #use Devel::Dwarn; Dwarn $self;
     $c->res->body('an_int');
   }
 
+  sub many_ints :Local Args(ArrayRef[Int]) {
+    my ($self, $c, $int) = @_;
+    $c->res->body('many_ints');
+  }
+
   sub default :Default {
     my ($self, $c, $int) = @_;
     $c->res->body('default');
@@ -39,6 +43,26 @@ use Catalyst::Test 'MyApp';
 }
 
 {
+  my $res = request '/many_ints/1';
+  is $res->content, 'many_ints';
+}
+
+{
+  my $res = request '/many_ints/1/2';
+  is $res->content, 'many_ints';
+}
+
+{
+  my $res = request '/many_ints/1/2/3';
+  is $res->content, 'many_ints';
+}
+
+{
+  my $res = request '/many_ints/1/2/a';
+  is $res->content, 'default';
+}
+
+{
   my $res = request '/an_int/aa';
   is $res->content, 'default';
 }