Commit | Line | Data |
50cc3183 |
1 | #!perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use FindBin; |
a2e038a1 |
7 | use lib "$FindBin::Bin/lib"; |
50cc3183 |
8 | |
9 | my $content = q/foo |
10 | bar |
11 | baz |
12 | /; |
13 | |
14 | our $iters; |
15 | |
6b25e555 |
16 | BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; } |
50cc3183 |
17 | |
18 | use Test::More tests => 16*$iters; |
19 | use Catalyst::Test 'TestApp'; |
20 | |
21 | if ( $ENV{CAT_BENCHMARK} ) { |
22 | require Benchmark; |
23 | Benchmark::timethis( $iters, \&run_tests ); |
24 | } |
25 | else { |
26 | for ( 1 .. $iters ) { |
27 | run_tests(); |
28 | } |
29 | } |
30 | |
31 | sub run_tests { |
32 | # Local |
33 | { |
34 | ok( |
35 | my $response = |
36 | request('http://localhost/action/multipath/multipath'), |
37 | 'Request' |
38 | ); |
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' ); |
42 | } |
43 | |
44 | # Global |
45 | { |
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' ); |
50 | } |
51 | |
52 | # Path('/multipath1') |
53 | { |
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' ); |
58 | } |
59 | |
60 | # Path('multipath2') |
61 | { |
62 | ok( |
63 | my $response = |
64 | request('http://localhost/action/multipath/multipath2'), |
65 | 'Request' |
66 | ); |
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' ); |
70 | } |
71 | } |