5 use lib "$FindBin::Bin/../lib";
9 BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
11 use Test::More tests => 53 * $iters;
12 use Catalyst::Test 'TestApp';
14 if ( $ENV{CAT_BENCHMARK} ) {
16 Benchmark::timethis( $iters, \&run_tests );
27 TestApp::Controller::Action::Forward->begin
28 TestApp::Controller::Action::Forward->one
29 TestApp::Controller::Action::Forward->two
30 TestApp::Controller::Action::Forward->three
31 TestApp::Controller::Action::Forward->four
32 TestApp::Controller::Action::Forward->five
33 TestApp::View::Dump::Request->process
34 TestApp::Controller::Root->end
37 my $expected = join( ", ", @expected );
39 # Test forward to global private action
40 ok( my $response = request('http://localhost/action/forward/global'),
42 ok( $response->is_success, 'Response Successful 2xx' );
43 is( $response->content_type, 'text/plain', 'Response Content-Type' );
44 is( $response->header('X-Catalyst-Action'),
45 'action/forward/global', 'Main Class Action' );
47 # Test forward to chain of actions.
48 ok( $response = request('http://localhost/action/forward/one'),
50 ok( $response->is_success, 'Response Successful 2xx' );
51 is( $response->content_type, 'text/plain', 'Response Content-Type' );
52 is( $response->header('X-Catalyst-Action'),
53 'action/forward/one', 'Test Action' );
55 $response->header('X-Test-Class'),
56 'TestApp::Controller::Action::Forward',
59 is( $response->header('X-Catalyst-Executed'),
60 $expected, 'Executed actions' );
63 qr/^bless\( .* 'Catalyst::Request' \)$/s,
64 'Content is a serialized Catalyst::Request'
70 TestApp::Controller::Action::Forward->begin
71 TestApp::Controller::Action::Forward->jojo
72 TestApp::Controller::Action::Forward->one
73 TestApp::Controller::Action::Forward->two
74 TestApp::Controller::Action::Forward->three
75 TestApp::Controller::Action::Forward->four
76 TestApp::Controller::Action::Forward->five
77 TestApp::View::Dump::Request->process
78 TestApp::Controller::Action::Forward->three
79 TestApp::Controller::Action::Forward->four
80 TestApp::Controller::Action::Forward->five
81 TestApp::View::Dump::Request->process
82 TestApp::Controller::Root->end
85 my $expected = join( ", ", @expected );
87 ok( my $response = request('http://localhost/action/forward/jojo'),
89 ok( $response->is_success, 'Response Successful 2xx' );
90 is( $response->content_type, 'text/plain', 'Response Content-Type' );
91 is( $response->header('X-Catalyst-Action'),
92 'action/forward/jojo', 'Test Action' );
94 $response->header('X-Test-Class'),
95 'TestApp::Controller::Action::Forward',
98 is( $response->header('X-Catalyst-Executed'),
99 $expected, 'Executed actions' );
102 qr/^bless\( .* 'Catalyst::Request' \)$/s,
103 'Content is a serialized Catalyst::Request'
110 request('http://localhost/action/forward/with_args/old'),
113 ok( $response->is_success, 'Response Successful 2xx' );
114 is( $response->content, 'old' );
119 my $response = request(
120 'http://localhost/action/forward/with_method_and_args/old'),
121 'Request with args and method'
123 ok( $response->is_success, 'Response Successful 2xx' );
124 is( $response->content, 'old' );
127 # test forward with embedded args
131 request('http://localhost/action/forward/args_embed_relative'),
134 ok( $response->is_success, 'Response Successful 2xx' );
135 is( $response->content, 'ok' );
141 request('http://localhost/action/forward/args_embed_absolute'),
144 ok( $response->is_success, 'Response Successful 2xx' );
145 is( $response->content, 'ok' );
149 TestApp::Controller::Action::TestRelative->begin
150 TestApp::Controller::Action::TestRelative->relative
151 TestApp::Controller::Action::Forward->one
152 TestApp::Controller::Action::Forward->two
153 TestApp::Controller::Action::Forward->three
154 TestApp::Controller::Action::Forward->four
155 TestApp::Controller::Action::Forward->five
156 TestApp::View::Dump::Request->process
157 TestApp::Controller::Root->end
160 my $expected = join( ", ", @expected );
162 # Test forward to chain of actions.
163 ok( my $response = request('http://localhost/action/relative/relative'),
165 ok( $response->is_success, 'Response Successful 2xx' );
166 is( $response->content_type, 'text/plain', 'Response Content-Type' );
167 is( $response->header('X-Catalyst-Action'),
168 'action/relative/relative', 'Test Action' );
170 $response->header('X-Test-Class'),
171 'TestApp::Controller::Action::TestRelative',
174 is( $response->header('X-Catalyst-Executed'),
175 $expected, 'Executed actions' );
178 qr/^bless\( .* 'Catalyst::Request' \)$/s,
179 'Content is a serialized Catalyst::Request'
184 TestApp::Controller::Action::TestRelative->begin
185 TestApp::Controller::Action::TestRelative->relative_two
186 TestApp::Controller::Action::Forward->one
187 TestApp::Controller::Action::Forward->two
188 TestApp::Controller::Action::Forward->three
189 TestApp::Controller::Action::Forward->four
190 TestApp::Controller::Action::Forward->five
191 TestApp::View::Dump::Request->process
192 TestApp::Controller::Root->end
195 my $expected = join( ", ", @expected );
197 # Test forward to chain of actions.
200 request('http://localhost/action/relative/relative_two'),
203 ok( $response->is_success, 'Response Successful 2xx' );
204 is( $response->content_type, 'text/plain', 'Response Content-Type' );
206 $response->header('X-Catalyst-Action'),
207 'action/relative/relative_two',
211 $response->header('X-Test-Class'),
212 'TestApp::Controller::Action::TestRelative',
215 is( $response->header('X-Catalyst-Executed'),
216 $expected, 'Executed actions' );
219 qr/^bless\( .* 'Catalyst::Request' \)$/s,
220 'Content is a serialized Catalyst::Request'
224 # test class forwards
227 my $response = request(
228 'http://localhost/action/forward/class_forward_test_action'),
231 ok( $response->is_success, 'Response Successful 2xx' );
232 is( $response->header('X-Class-Forward-Test-Method'), 1,
236 # test uri_for re r7385
238 ok( my $response = request(
239 'http://localhost/action/forward/forward_to_uri_check'),
240 'forward_to_uri_check request');
242 ok( $response->is_success, 'forward_to_uri_check successful');
243 is( $response->content, 'action/forward/foo/bar',
244 'forward_to_uri_check correct namespace');
247 # test forwarding to Catalyst::Action objects
249 ok( my $response = request(
250 'http://localhost/action/forward/to_action_object'),
251 'forward/to_action_object request');
253 ok( $response->is_success, 'forward/to_action_object successful');
254 is( $response->content, 'mtfnpy',
255 'forward/to_action_object forwards correctly');