7 use lib "$FindBin::Bin/../lib";
16 BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
18 use Test::More tests => 16*$iters;
19 use Catalyst::Test 'TestApp';
21 if ( $ENV{CAT_BENCHMARK} ) {
23 Benchmark::timethis( $iters, \&run_tests );
38 request('http://localhost/action/multipath/multipath'),
41 ok( $response->is_success, 'Response Successful 2xx' );
42 is( $response->content_type, 'text/plain', 'Response Content-Type' );
43 is( $response->content, $content, 'Content is a stream' );
48 ok( my $response = request('http://localhost/multipath'), 'Request' );
49 ok( $response->is_success, 'Response Successful 2xx' );
50 is( $response->content_type, 'text/plain', 'Response Content-Type' );
51 is( $response->content, $content, 'Content is a stream' );
56 ok( my $response = request('http://localhost/multipath1'), 'Request' );
57 ok( $response->is_success, 'Response Successful 2xx' );
58 is( $response->content_type, 'text/plain', 'Response Content-Type' );
59 is( $response->content, $content, 'Content is a stream' );
66 request('http://localhost/action/multipath/multipath2'),
69 ok( $response->is_success, 'Response Successful 2xx' );
70 is( $response->content_type, 'text/plain', 'Response Content-Type' );
71 is( $response->content, $content, 'Content is a stream' );