make it less easy to want moose stringy types

[catagits/Catalyst-Runtime.git] / t / arg_constraints.t

diff --git a/t/arg_constraints.t b/t/arg_constraints.t
index 4c29a43..95b92b0 100644 (file)
--- 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)