7 use lib "$FindBin::Bin/lib";
11 BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
13 use Test::More tests => 47 * $iters;
14 use Catalyst::Test 'TestApp';
16 if ( $ENV{CAT_BENCHMARK} ) {
18 Benchmark::timethis( $iters, \&run_tests );
29 TestApp::Controller::Action::Go->one
30 TestApp::Controller::Action::Go->two
31 TestApp::Controller::Action::Go->three
32 TestApp::Controller::Action::Go->four
33 TestApp::Controller::Action::Go->five
34 TestApp::View::Dump::Request->process
38 @expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
39 my $expected = join( ", ", @expected );
41 # Test go to global private action
42 ok( my $response = request('http://localhost/action/go/global'),
44 ok( $response->is_success, 'Response Successful 2xx' );
45 is( $response->content_type, 'text/plain', 'Response Content-Type' );
46 is( $response->header('X-Catalyst-Action'),
47 'action/go/global', 'Main Class Action' );
49 # Test go to chain of actions.
50 ok( $response = request('http://localhost/action/go/one'),
52 ok( $response->is_success, 'Response Successful 2xx' );
53 is( $response->content_type, 'text/plain', 'Response Content-Type' );
54 is( $response->header('X-Catalyst-Action'),
55 'action/go/one', 'Test Action' );
57 $response->header('X-Test-Class'),
58 'TestApp::Controller::Action::Go',
61 is( $response->header('X-Catalyst-Executed'),
62 $expected, 'Executed actions' );
65 qr/^bless\( .* 'Catalyst::Request' \)$/s,
66 'Content is a serialized Catalyst::Request'
72 TestApp::Controller::Action::Go->go_die
73 TestApp::Controller::Action::Go->args
77 @expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
78 my $expected = join( ", ", @expected );
80 ok( my $response = request('http://localhost/action/go/go_die'),
82 ok( $response->is_success, 'Response Successful 2xx' );
83 is( $response->content_type, 'text/plain', 'Response Content-Type' );
84 is( $response->header('X-Catalyst-Action'),
85 'action/go/go_die', 'Test Action'
88 $response->header('X-Test-Class'),
89 'TestApp::Controller::Action::Go',
92 is( $response->header('X-Catalyst-Executed'),
93 $expected, 'Executed actions' );
94 is( $response->content, $Catalyst::GO, "Go died as expected" );
100 request('http://localhost/action/go/with_args/old'),
103 ok( $response->is_success, 'Response Successful 2xx' );
104 is( $response->content, 'old' );
109 my $response = request(
110 'http://localhost/action/go/with_method_and_args/new'),
111 'Request with args and method'
113 ok( $response->is_success, 'Response Successful 2xx' );
114 is( $response->content, 'new' );
117 # test go with embedded args
121 request('http://localhost/action/go/args_embed_relative'),
124 ok( $response->is_success, 'Response Successful 2xx' );
125 is( $response->content, 'ok' );
131 request('http://localhost/action/go/args_embed_absolute'),
134 ok( $response->is_success, 'Response Successful 2xx' );
135 is( $response->content, 'ok' );
139 TestApp::Controller::Action::TestRelative->relative_go
140 TestApp::Controller::Action::Go->one
141 TestApp::Controller::Action::Go->two
142 TestApp::Controller::Action::Go->three
143 TestApp::Controller::Action::Go->four
144 TestApp::Controller::Action::Go->five
145 TestApp::View::Dump::Request->process
149 @expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
150 my $expected = join( ", ", @expected );
152 # Test go to chain of actions.
153 ok( my $response = request('http://localhost/action/relative/relative_go'),
155 ok( $response->is_success, 'Response Successful 2xx' );
156 is( $response->content_type, 'text/plain', 'Response Content-Type' );
157 is( $response->header('X-Catalyst-Action'),
158 'action/relative/relative_go', 'Test Action' );
160 $response->header('X-Test-Class'),
161 'TestApp::Controller::Action::Go',
164 is( $response->header('X-Catalyst-Executed'),
165 $expected, 'Executed actions' );
168 qr/^bless\( .* 'Catalyst::Request' \)$/s,
169 'Content is a serialized Catalyst::Request'
174 TestApp::Controller::Action::TestRelative->relative_go_two
175 TestApp::Controller::Action::Go->one
176 TestApp::Controller::Action::Go->two
177 TestApp::Controller::Action::Go->three
178 TestApp::Controller::Action::Go->four
179 TestApp::Controller::Action::Go->five
180 TestApp::View::Dump::Request->process
184 @expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
185 my $expected = join( ", ", @expected );
187 # Test go to chain of actions.
190 request('http://localhost/action/relative/relative_go_two'),
193 ok( $response->is_success, 'Response Successful 2xx' );
194 is( $response->content_type, 'text/plain', 'Response Content-Type' );
196 $response->header('X-Catalyst-Action'),
197 'action/relative/relative_go_two',
201 $response->header('X-Test-Class'),
202 'TestApp::Controller::Action::Go',
205 is( $response->header('X-Catalyst-Executed'),
206 $expected, 'Executed actions' );
209 qr/^bless\( .* 'Catalyst::Request' \)$/s,
210 'Content is a serialized Catalyst::Request'
217 my $response = request(
218 'http://localhost/action/go/class_go_test_action'),
221 ok( $response->is_success, 'Response Successful 2xx' );
222 is( $response->header('X-Class-Go-Test-Method'), 1,