7 use lib "$FindBin::Bin/lib";
\r
11 BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 2; }
\r
13 use Test::More tests => 18*$iters;
\r
14 use Catalyst::Test 'TestApp';
\r
16 if ( $ENV{CAT_BENCHMARK} ) {
\r
18 Benchmark::timethis( $iters, \&run_tests );
\r
21 for ( 1 .. $iters ) {
\r
29 TestApp::Controller::Action::Detach->begin
\r
30 TestApp::Controller::Action::Detach->one
\r
31 TestApp::Controller::Action::Detach->two
\r
32 TestApp::View::Dump::Request->process
\r
36 my $expected = join( ", ", @expected );
\r
38 # Test detach to chain of actions.
\r
39 ok( my $response = request('http://localhost/action/detach/one'),
\r
41 ok( $response->is_success, 'Response Successful 2xx' );
\r
42 is( $response->content_type, 'text/plain', 'Response Content-Type' );
\r
43 is( $response->header('X-Catalyst-Action'),
\r
44 'action/detach/one', 'Test Action' );
\r
46 $response->header('X-Test-Class'),
\r
47 'TestApp::Controller::Action::Detach',
\r
50 is( $response->header('X-Catalyst-Executed'),
\r
51 $expected, 'Executed actions' );
\r
56 TestApp::Controller::Action::Detach->begin
\r
57 TestApp::Controller::Action::Detach->path
\r
58 TestApp::Controller::Action::Detach->two
\r
59 TestApp::View::Dump::Request->process
\r
63 my $expected = join( ", ", @expected );
\r
65 # Test detach to chain of actions.
\r
66 ok( my $response = request('http://localhost/action/detach/path'),
\r
68 ok( $response->is_success, 'Response Successful 2xx' );
\r
69 is( $response->content_type, 'text/plain', 'Response Content-Type' );
\r
70 is( $response->header('X-Catalyst-Action'),
\r
71 'action/detach/path', 'Test Action' );
\r
73 $response->header('X-Test-Class'),
\r
74 'TestApp::Controller::Action::Detach',
\r
77 is( $response->header('X-Catalyst-Executed'),
\r
78 $expected, 'Executed actions' );
\r
84 request('http://localhost/action/detach/with_args/old'),
\r
87 ok( $response->is_success, 'Response Successful 2xx' );
\r
88 is( $response->content, 'new' );
\r
93 my $response = request(
\r
94 'http://localhost/action/detach/with_method_and_args/old'),
\r
95 'Request with args and method'
\r
97 ok( $response->is_success, 'Response Successful 2xx' );
\r
98 is( $response->content, 'new' );
\r