X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp%2FController%2FAction%2FChained.pm;h=2a3c7791f6704c17100924571a1558fa6f0cf599;hb=fe82a51db5b44026493ce2a6e05c0f233ddfb4dd;hp=d93827de12608f15469e55a287378e91c00420e9;hpb=1c34f703cbd82cddceea95593001a579e1d5f646;p=catagits%2FCatalyst-Runtime.git diff --git a/t/lib/TestApp/Controller/Action/Chained.pm b/t/lib/TestApp/Controller/Action/Chained.pm index d93827d..2a3c779 100644 --- a/t/lib/TestApp/Controller/Action/Chained.pm +++ b/t/lib/TestApp/Controller/Action/Chained.pm @@ -3,6 +3,8 @@ package TestApp::Controller::Action::Chained; use strict; use warnings; +use HTML::Entities; + use base qw/Catalyst::Controller/; sub begin :Private { } @@ -15,7 +17,11 @@ sub begin :Private { } # # Simple parent/child action test # -sub foo :PathPart('chained/foo') :CaptureArgs(1) :Chained('/') { } +sub foo :PathPart('chained/foo') :CaptureArgs(1) :Chained('/') { + my ( $self, $c, @args ) = @_; + die "missing argument" unless @args; + die "more than 1 argument: got @args" if @args > 1; +} sub endpoint :PathPart('end') :Chained('/action/chained/foo') :Args(1) { } # @@ -71,6 +77,7 @@ sub priority_a1 :PathPart('chained/priority_a') :Chained('/') :Args { } sub priority_a2 :PathPart('chained/priority_a') :Chained('/') :CaptureArgs(1) { } sub priority_a2_end :PathPart('end') :Chained('priority_a2') :Args(1) { } + # # Priority: Fixed args vs. chained actions # @@ -79,6 +86,14 @@ sub priority_b2 :PathPart('chained/priority_b') :Chained('/') :CaptureArgs(1) { sub priority_b2_end :PathPart('end') :Chained('priority_b2') :Args(1) { } # +# Priority: With no Args() +# +sub priority_c1 :PathPart('chained/priority_c') :Chained('/') :CaptureArgs(1) { } +sub priority_c2 :PathPart('') :Chained('priority_c1') { } +sub priority_c2_xyz :PathPart('xyz') :Chained('priority_c1') { } + + +# # Optional specification of :Args in endpoint # sub opt_args :PathPart('chained/opt_args') :Chained('/') { } @@ -128,12 +143,111 @@ sub chain_dt_a :Chained :PathPart('chained/chain_dt') :CaptureArgs(1) { sub chain_dt_b :Chained('chain_dt_a') :PathPart('end') :Args(1) { } # +# Error in the middle of a chain +# +sub chain_error_a :Chained :PathPart('chained/chain_error') :CaptureArgs(1) { + $_[1]->error( 'break in the middle of a chain' ); +} + +sub chain_error_b :Chained('chain_error_a') :PathPart('end') :Args(1) {} + +# +# Die in the middle of a chain +# +sub chain_die_a :Chained :PathPart('chained/chain_die') :CaptureArgs(1) { + die( "die in the middle of a chain\n" ); +} + +sub chain_die_b :Chained('chain_die_a') :PathPart('end') :Args(1) {} + +# # Target for former forward and chain tests. # sub fw_dt_target :Private { } +# +# Test multiple chained actions with no captures +# +sub empty_chain_a : Chained('/') PathPart('chained/empty') CaptureArgs(0) { } +sub empty_chain_b : Chained('empty_chain_a') PathPart('') CaptureArgs(0) { } +sub empty_chain_c : Chained('empty_chain_b') PathPart('') CaptureArgs(0) { } +sub empty_chain_d : Chained('empty_chain_c') PathPart('') CaptureArgs(1) { } +sub empty_chain_e : Chained('empty_chain_d') PathPart('') CaptureArgs(0) { } +sub empty_chain_f : Chained('empty_chain_e') PathPart('') Args(1) { } + +sub mult_nopp_base : Chained('/') PathPart('chained/mult_nopp') CaptureArgs(0) { } +sub mult_nopp_all : Chained('mult_nopp_base') PathPart('') Args(0) { } +sub mult_nopp_new : Chained('mult_nopp_base') PathPart('new') Args(0) { } +sub mult_nopp_id : Chained('mult_nopp_base') PathPart('') CaptureArgs(1) { } +sub mult_nopp_idall : Chained('mult_nopp_id') PathPart('') Args(0) { } +sub mult_nopp_idnew : Chained('mult_nopp_id') PathPart('new') Args(0) { } + +sub mult_nopp2_base : Chained('/') PathPart('chained/mult_nopp2') CaptureArgs(0) { } +sub mult_nopp2_nocap : Chained('mult_nopp2_base') PathPart('') CaptureArgs(0) { } +sub mult_nopp2_action : Chained('mult_nopp2_nocap') PathPart('action') CaptureArgs(0) { } +sub mult_nopp2_action_default : Chained('mult_nopp2_action') PathPart('') Args(0) { } +sub mult_nopp2_action_with_arg : Chained('mult_nopp2_action') PathPart('') Args(1) { } +sub mult_nopp2_load : Chained('mult_nopp2_base') PathPart('') CaptureArgs(1) { } +sub mult_nopp2_view : Chained('mult_nopp2_load') PathPart('') Args(0) { } + +# +# Test Choice between branches and early return logic +# Declaration order is important for $children->{$*}, since this is first match best. +# +sub cc_base : Chained('/') PathPart('chained/choose_capture') CaptureArgs(0) { } +sub cc_link : Chained('cc_base') PathPart('') CaptureArgs(0) { } +sub cc_anchor : Chained('cc_link') PathPart('anchor.html') Args(0) { } +sub cc_all : Chained('cc_base') PathPart('') Args() { } + +sub cc_a : Chained('cc_base') PathPart('') CaptureArgs(1) { } +sub cc_a_link : Chained('cc_a') PathPart('a') CaptureArgs(0) { } +sub cc_a_anchor : Chained('cc_a_link') PathPart('') Args() { } + +sub cc_b : Chained('cc_base') PathPart('b') CaptureArgs(0) { } +sub cc_b_link : Chained('cc_b') PathPart('') CaptureArgs(1) { } +sub cc_b_anchor : Chained('cc_b_link') PathPart('anchor.html') Args() { } + +# +# Test static paths vs. captures +# + +sub apan : Chained('/') CaptureArgs(0) PathPrefix { } +sub korv : Chained('apan') CaptureArgs(0) PathPart('') { } +sub wurst : Chained('apan') CaptureArgs(1) PathPart('') { } +sub static_end : Chained('korv') Args(0) { } +sub capture_end : Chained('wurst') Args(0) PathPart('') { } + + +# */search vs doc/* +sub view : Chained('/') PathPart('chained') CaptureArgs(1) {} +sub star_search : Chained('view') PathPart('search') Args(0) { } +sub doc_star : Chained('/') PathPart('chained/doc') Args(1) {} + +sub return_arg : Chained('view') PathPart('return_arg') Args(1) {} + +sub return_arg_decoded : Chained('/') PathPart('chained/return_arg_decoded') Args(1) { + my ($self, $c) = @_; + $c->req->args([ map { decode_entities($_) } @{ $c->req->args }]); +} + +sub roundtrip_urifor : Chained('/') PathPart('chained/roundtrip_urifor') CaptureArgs(1) {} +sub roundtrip_urifor_end : Chained('roundtrip_urifor') PathPart('') Args(1) { + my ($self, $c) = @_; + # This should round-trip, always - i.e. the uri you put in should come back out. + $c->res->body($c->uri_for($c->action, $c->req->captures, @{$c->req->args}, $c->req->parameters)); + $c->stash->{no_end} = 1; +} + +sub match_captures : Chained('/') PathPart('chained/match_captures') CaptureArgs(1) ActionClass('+TestApp::Action::TestMatchCaptures') { + my ($self, $c) = @_; + $c->res->header( 'X-TestAppActionTestMatchCapturesHasRan', 'yes'); +} + +sub match_captures_end : Chained('match_captures') PathPart('bar') Args(0) { } + sub end :Private { my ($self, $c) = @_; + return if $c->stash->{no_end}; my $out = join('; ', map { join(', ', @$_) } ($c->req->captures, $c->req->args)); $c->res->body($out);