5 use lib "$FindBin::Bin/../lib";
14 BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
16 use Test::More tests => 16*$iters;
17 use Catalyst::Test 'TestApp';
19 if ( $ENV{CAT_BENCHMARK} ) {
21 Benchmark::timethis( $iters, \&run_tests );
36 request('http://localhost/action/multipath/multipath'),
39 ok( $response->is_success, 'Response Successful 2xx' );
40 is( $response->content_type, 'text/plain', 'Response Content-Type' );
41 is( $response->content, $content, 'Content is a stream' );
46 ok( my $response = request('http://localhost/multipath'), 'Request' );
47 ok( $response->is_success, 'Response Successful 2xx' );
48 is( $response->content_type, 'text/plain', 'Response Content-Type' );
49 is( $response->content, $content, 'Content is a stream' );
54 ok( my $response = request('http://localhost/multipath1'), 'Request' );
55 ok( $response->is_success, 'Response Successful 2xx' );
56 is( $response->content_type, 'text/plain', 'Response Content-Type' );
57 is( $response->content, $content, 'Content is a stream' );
64 request('http://localhost/action/multipath/multipath2'),
67 ok( $response->is_success, 'Response Successful 2xx' );
68 is( $response->content_type, 'text/plain', 'Response Content-Type' );
69 is( $response->content, $content, 'Content is a stream' );