X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Farg_constraints.t;fp=t%2Farg_constraints.t;h=95b92b0010a4081727c591409a6af3133b122890;hp=4c29a43bc216ef32040396cf68a007336a7dc645;hb=75ce30d0f208d49ead0134ab45fc2f45f72d6023;hpb=25ca36c2fb3547600772a73c722a30b469ad632f

diff --git a/t/arg_constraints.t b/t/arg_constraints.t
index 4c29a43..95b92b0 100644
--- a/t/arg_constraints.t
+++ b/t/arg_constraints.t
@@ -82,6 +82,11 @@ BEGIN {
     $c->res->body("name: $user->{name}, age: $user->{age}");
   }
 
+  sub stringy_enum :Local Args('Int',Int) {
+    my ($self, $c) = @_;
+    $c->res->body('enum');
+  }
+
   sub an_int :Local Args(Int) {
     my ($self, $c, $int) = @_;
     $c->res->body('an_int');
@@ -365,6 +370,21 @@ SKIP: {
     is $res->content, 'chained_zero2', "request POST '/chain_base2/capture'";
 }
 
+{
+    my $res = request '/stringy_enum/1/2';
+    is $res->content, 'enum', "request '/stringy_enum/a'";
+}
+
+{
+    my $res = request '/stringy_enum/b/2';
+    is $res->content, 'default', "request '/stringy_enum/a'";
+}
+
+{
+    my $res = request '/stringy_enum/1/a';
+    is $res->content, 'default', "request '/stringy_enum/a'";
+}
+
 =over
 
 | /chain_base/*/*/*/*/*/*                 | /chain_base (1)