Mercurial > hg > nginx-tests
annotate stub_status.t @ 597:66f4d8cb719e
Tests: some stub_status tests.
author | Andrey Zelenkov <zelenkov@nginx.com> |
---|---|
date | Thu, 28 May 2015 20:40:47 +0300 |
parents | |
children | 868ff7169ec8 |
rev | line source |
---|---|
597
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
2 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
3 # (C) Andrey Zelenkov |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
4 # (C) Nginx, Inc. |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
5 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
6 # Tests for stub status module. |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
7 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
8 ############################################################################### |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
9 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
10 use warnings; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
11 use strict; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
12 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
13 use Test::More; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
14 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
15 BEGIN { use FindBin; chdir($FindBin::Bin); } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
16 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
17 use lib 'lib'; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
18 use Test::Nginx; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
19 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
20 ############################################################################### |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
21 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
22 select STDERR; $| = 1; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
23 select STDOUT; $| = 1; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
24 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
25 my $t = Test::Nginx->new()->has(qw/http stub_status/)->plan(34); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
26 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
27 $t->write_file_expand('nginx.conf', <<'EOF'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
28 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
29 %%TEST_GLOBALS%% |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
30 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
31 daemon off; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
32 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
33 events { |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
34 } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
35 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
36 http { |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
37 %%TEST_GLOBALS_HTTP%% |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
38 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
39 server { |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
40 listen 127.0.0.1:8080; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
41 server_name localhost; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
42 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
43 add_header X-Active $connections_active; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
44 add_header X-Reading $connections_reading; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
45 add_header X-Writing $connections_writing; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
46 add_header X-Waiting $connections_waiting; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
47 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
48 location / { } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
49 location /rate { |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
50 limit_rate 15; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
51 } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
52 location /stub { |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
53 stub_status; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
54 } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
55 } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
56 } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
57 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
58 EOF |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
59 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
60 $t->write_file('index.html', ''); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
61 $t->run(); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
62 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
63 ############################################################################### |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
64 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
65 my %status = status('/stub'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
66 like(http_get('/stub'), qr/200 OK/, 'get request'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
67 is($status{'active'}, 1, 'open connection'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
68 is($status{'requests'}, 1, 'first request'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
69 is($status{'accepts'}, 1, 'first request accepted'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
70 is($status{'handled'}, 1, 'first request handled'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
71 is($status{'writing'}, 1, 'first response'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
72 is($status{'reading'}, 0, 'not reading'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
73 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
74 # pipelined requests |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
75 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
76 my $s = http(<<EOF, start => 1); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
77 GET / HTTP/1.1 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
78 Host: localhost |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
79 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
80 GET / HTTP/1.1 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
81 Host: localhost |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
82 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
83 EOF |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
84 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
85 %status = status('/stub'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
86 is($status{'requests'}, 5, 'requests increased by 2'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
87 is($status{'accepts'}, 4, 'accepts increased by 1'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
88 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
89 $s->close(); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
90 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
91 # states |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
92 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
93 $s = http('', start => 1); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
94 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
95 %status = status('/stub'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
96 is($status{'active'}, 2, 'active'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
97 is($status{'waiting'}, 1, 'waiting state'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
98 is($status{'reading'}, 0, 'waiting state - not reading'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
99 is($status{'writing'}, 1, 'waiting state - not writing'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
100 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
101 http(<<EOF, start => 1, socket => $s); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
102 GET /rate HTTP/1.0 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
103 EOF |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
104 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
105 %status = status('/stub'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
106 is($status{'waiting'}, 0, 'reading state - not waiting'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
107 is($status{'reading'}, 1, 'reading state'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
108 is($status{'writing'}, 1, 'reading state - not writing'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
109 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
110 http(<<EOF, start => 1, socket => $s); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
111 Host: localhost |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
112 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
113 EOF |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
114 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
115 %status = status('/stub'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
116 is($status{'waiting'}, 0, 'writing state - not waiting'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
117 is($status{'reading'}, 0, 'writing state - not reading'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
118 is($status{'writing'}, 2, 'writing state'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
119 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
120 $s->close(); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
121 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
122 # head and post requests |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
123 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
124 like(http_head('/stub'), qr/200 OK/, 'head request'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
125 like(http_post('/stub'), qr/405 Not Allowed/, 'post request'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
126 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
127 # embedded variables in headers |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
128 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
129 my $r = http_get('/stub'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
130 like($r, qr/X-Active: 1/, 'get - var active'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
131 like($r, qr/X-Reading: 0/, 'get - var reading'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
132 like($r, qr/X-Writing: 1/, 'get - var writing'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
133 like($r, qr/X-Waiting: 0/, 'get - var waiting'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
134 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
135 $r = http_head('/stub'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
136 like($r, qr/X-Active: 1/, 'head - var active'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
137 like($r, qr/X-Reading: 0/, 'head - var reading'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
138 like($r, qr/X-Writing: 1/, 'head - var writing'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
139 like($r, qr/X-Waiting: 0/, 'head - var waiting'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
140 is(get_body($r), '', 'head - empty body'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
141 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
142 $r = http_get('/'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
143 like($r, qr/X-Active: 1/, 'no stub - var active'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
144 like($r, qr/X-Reading: 0/, 'no stub - var reading'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
145 like($r, qr/X-Writing: 1/, 'no stub - var writing'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
146 like($r, qr/X-Waiting: 0/, 'no stub - var waiting'); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
147 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
148 ############################################################################### |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
149 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
150 sub get_body { |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
151 my ($r) = @_; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
152 $r =~ /.*?\x0d\x0a?\x0d\x0a?(.*)/ms; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
153 return $1; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
154 } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
155 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
156 sub http_post { |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
157 my ($url) = @_; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
158 return http(<<EOF); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
159 POST $url HTTP/1.0 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
160 Host: localhost |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
161 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
162 EOF |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
163 } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
164 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
165 sub status { |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
166 my ($url) = @_; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
167 my $r = http_get($url); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
168 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
169 $r =~ / |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
170 Active\ connections:\ +(\d+) |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
171 \s+server\ accepts\ handled\ requests |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
172 \s+(\d+)\ +(\d+)\ +(\d+) |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
173 \s+Reading:\ +(\d+) |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
174 \s+Writing:\ +(\d+) |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
175 \s+Waiting:\ +(\d+) |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
176 /sx; |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
177 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
178 return ('active' => $1, |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
179 'accepts' => $2, |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
180 'handled' => $3, |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
181 'requests' => $4, |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
182 'reading' => $5, |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
183 'writing' => $6, |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
184 'waiting' => $7, |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
185 ); |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
186 } |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
187 |
66f4d8cb719e
Tests: some stub_status tests.
Andrey Zelenkov <zelenkov@nginx.com>
parents:
diff
changeset
|
188 ############################################################################### |