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=fb3a3a7f0971104c0464030825c9f6bf301e26cf;hp=b753e218118e730955cbe862f72267c3535ba361;hb=b40370866bf21a54428e3193b83ea6dabdd70d9e;hpb=a82c96cf2bf688f97140bad7fd3979a531416a22 diff --git a/t/arg_constraints.t b/t/arg_constraints.t index b753e21..fb3a3a7 100644 --- a/t/arg_constraints.t +++ b/t/arg_constraints.t @@ -1,5 +1,6 @@ use warnings; use strict; +use HTTP::Request::Common; BEGIN { use Test::More; @@ -58,7 +59,7 @@ BEGIN { use Moose; use MooseX::MethodAttributes; - use MyApp::Types qw/Tuple Int Str StrMatch UserId User/; + use MyApp::Types qw/Tuple Int Str StrMatch ArrayRef UserId User/; extends 'Catalyst::Controller'; @@ -79,6 +80,11 @@ BEGIN { $c->res->body('an_int'); } + sub two_ints :Local Args(Int,Int) { + my ($self, $c, $int) = @_; + $c->res->body('two_ints'); + } + sub many_ints :Local Args(ArrayRef[Int]) { my ($self, $c, $int) = @_; $c->res->body('many_ints'); @@ -100,16 +106,41 @@ BEGIN { sub chain_base :Chained(/) CaptureArgs(1) { } - sub any_priority_chain :Chained(chain_base) PathPart('') Args(1) { $_[1]->res->body('any_priority_chain') } + sub chained_zero_post :POST Chained(chain_base) PathPart('') Args(0) { $_[1]->res->body('chained_zero_post') } + sub chained_zero : Chained(chain_base) PathPart('') Args(0) { $_[1]->res->body('chained_zero') } + + sub any_priority_chain :GET Chained(chain_base) PathPart('') Args(1) { $_[1]->res->body('any_priority_chain') } sub int_priority_chain :Chained(chain_base) PathPart('') Args(Int) { $_[1]->res->body('int_priority_chain') } + sub link_any :Chained(chain_base) PathPart('') CaptureArgs(1) { } + + sub any_priority_link_any :Chained(link_any) PathPart('') Args(1) { $_[1]->res->body('any_priority_link_any') } + + sub int_priority_link_any :Chained(link_any) PathPart('') Args(Int) { $_[1]->res->body('int_priority_link_any') } + sub link_int :Chained(chain_base) PathPart('') CaptureArgs(Int) { } sub any_priority_link :Chained(link_int) PathPart('') Args(1) { $_[1]->res->body('any_priority_link') } 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(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 link2_int :Chained(link_tuple) PathPart('') CaptureArgs(UserId) { } + + sub finally2 :GET Chained(link2_int) PathPart('') Args { $_[1]->res->body('finally2') } + sub finally :GET Chained(link2_int) PathPart('') Args(Int) { $_[1]->res->body('finally') } sub default :Default { my ($self, $c, $int) = @_; @@ -152,11 +183,6 @@ use Catalyst::Test 'MyApp'; } { - my $res = request '/many_ints/1/2/a'; - is $res->content, 'default'; -} - -{ my $res = request '/priority_test/1'; is $res->content, 'int_priority'; } @@ -167,16 +193,6 @@ use Catalyst::Test 'MyApp'; } { - my $res = request '/tuple/aaa/111'; - is $res->content, 'tuple'; -} - -{ - my $res = request '/tuple/aaa/aaa'; - is $res->content, 'default'; -} - -{ my $res = request '/match/11-22-33'; is $res->content, 'match'; } @@ -229,4 +245,117 @@ SKIP: { is $res->content, 'int_priority_chain', 'got expected'; } +{ + my $res = request '/chain_base/cap1/a/arg'; + is $res->content, 'any_priority_link_any'; +} + +{ + my $res = request '/chain_base/cap1/a/102'; + is $res->content, 'int_priority_link_any'; +} + +{ + my $res = request '/two_ints/1/2'; + is $res->content, 'two_ints'; +} + +{ + my $res = request '/two_ints/aa/111'; + is $res->content, 'default'; +} + +{ + my $res = request '/tuple/aaa/aaa'; + is $res->content, 'default'; +} + +{ + my $res = request '/tuple/aaa/111'; + is $res->content, 'tuple'; +} + +{ + my $res = request '/many_ints/1/2/a'; + is $res->content, 'default'; +} + +{ + my $res = request '/chain_base/100/100/100/100'; + is $res->content, 'int_priority_link2'; +} + +{ + my $res = request '/chain_base/100/ss/100/100'; + 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'; +} + +{ + my $res = request '/chain_base/1/2/3/3/3/6'; + is $res->content, 'finally'; +} + +{ + my $res = request '/chain_base/1/2/3/3/3/a'; + is $res->content, 'finally2'; +} + +{ + my $res = request '/chain_base/1/2/3/3/3/6/7/8/9'; + is $res->content, 'finally2'; +} + +=over + +| /chain_base/* | /chain_base (1) | +| | => /chained_zero (0) | +| /chain_base/* | /chain_base (1) | +| | => POST /chained_zero_post (0) + +=cut + +{ + my $res = request PUT '/chain_base/capture'; + is $res->content, 'chained_zero'; +} + +{ + my $res = request '/chain_base/capture'; + is $res->content, 'chained_zero'; +} + +{ + my $res = request POST '/chain_base/capture'; + is $res->content, 'chained_zero_post'; +} + +=over + +| /chain_base/*/*/*/*/*/* | /chain_base (1) +| | -> /link_tuple (Tuple[Int,Int,Int]) +| | -> /link2_int (UserId) +| | => GET /finally (Int) + +=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;