Mercurial > hg > nginx-tests

comparison http_keepalive.t @ 1023:8533222fcfc1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: http keepalive tests. Basic tests for keepalive_requests, keepalive_disable and keepalive_timeout directives.
author Andrey Zelenkov <zelenkov@nginx.com>
date Fri, 02 Sep 2016 14:42:00 +0300
parents
children 2b8523bd4988
comparison
equal deleted inserted replaced
1022:616e682e4ca5 1023:8533222fcfc1
1 #!/usr/bin/perl
2
3 # (C) Andrey Zelenkov
4 # (C) Nginx, Inc.
5
6 # Tests for http keepalive directives.
7
8 ###############################################################################
9
10 use warnings;
11 use strict;
12
13 use Test::More;
14
15 use IO::Select;
16
17 BEGIN { use FindBin; chdir($FindBin::Bin); }
18
19 use lib 'lib';
20 use Test::Nginx;
21
22 ###############################################################################
23
24 select STDERR; $| = 1;
25 select STDOUT; $| = 1;
26
27 my $t = Test::Nginx->new()->has(qw/http/)->plan(13)
28 ->write_file_expand('nginx.conf', <<'EOF');
29
30 %%TEST_GLOBALS%%
31
32 daemon off;
33
34 events {
35 }
36
37 http {
38 %%TEST_GLOBALS_HTTP%%
39
40 server {
41 listen 127.0.0.1:8080;
42 server_name localhost;
43
44 keepalive_requests 2;
45 keepalive_timeout 1 9;
46
47 location / { }
48 location /r {
49 keepalive_requests 4;
50 }
51
52 location /safari {
53 keepalive_disable safari;
54 }
55
56 location /none {
57 keepalive_disable none;
58 }
59
60 location /zero {
61 keepalive_timeout 0;
62 }
63 }
64 }
65
66 EOF
67
68 $t->write_file('index.html', '');
69 $t->write_file('r', '');
70 $t->write_file('safari', '');
71 $t->write_file('none', '');
72 $t->write_file('zero', '');
73 $t->run();
74
75 ###############################################################################
76
77 # keepalive_requests
78
79 like(http_keepalive('/'), qr/Connection: keep-alive/, 'keepalive request');
80 is(count_keepalive(http_keepalive('/', req => 2)), 1, 'keepalive limit');
81 is(count_keepalive(http_keepalive('/r', req => 3)), 3, 'keepalive merge');
82 is(count_keepalive(http_keepalive('/r', req => 5)), 3, 'keepalive merge limit');
83
84 # keepalive_disable
85
86 like(http_keepalive('/', method => 'POST', ua => "MSIE 5.0"),
87 qr/Connection: close/, 'keepalive disable msie6');
88 like(http_keepalive('/', ua => "MSIE 5.0"), qr/Connection: keep-alive/,
89 'keepalive disable msie6 GET');
90 like(http_keepalive('/', method => 'POST', ua => "MSIE 7.0"),
91 qr/Connection: keep-alive/, 'keepalive disable msie6 modern');
92 like(http_keepalive('/', ua => "Mac OS X Safari/7534.48.3"),
93 qr/Connection: keep-alive/, 'keepalive disable msie6 safari');
94 like(http_keepalive('/safari', ua => "Mac OS X Safari/7534.48.3"),
95 qr/Connection: close/, 'keepalive disable safari');
96 like(http_keepalive('/none', method => 'POST', ua => "MSIE 5.0"),
97 qr/Connection: keep-alive/, 'keepalive disable none');
98
99 # keepalive_timeout
100
101 my $r = http_keepalive('/', req => 2, sleep => 2.1);
102 is(count_keepalive($r), 1, 'keepalive timeout request');
103 like($r, qr/Keep-Alive: timeout=9/, 'keepalive timeout header');
104
105 like(http_keepalive('/zero'), qr/Connection: close/, 'keepalive timeout 0');
106
107 ###############################################################################
108
109 sub http_keepalive {
110 my ($url, %opts) = @_;
111 my $data = '';
112
113 $opts{ua} = $opts{ua} || '';
114 $opts{req} = $opts{req} || 1;
115 $opts{sleep} = $opts{sleep} || 0;
116 $opts{method} = $opts{method} || 'GET';
117
118 my $s = http('', start => 1);
119
120 for my $i (1 .. $opts{req}) {
121
122 my $sleep = ($i == 1 ? $opts{sleep} : 0);
123
124 http(<<EOF, socket => $s, start => 1, sleep => $sleep);
125 $opts{method} $url HTTP/1.1
126 Host: localhost
127 User-Agent: $opts{ua}
128
129 EOF
130
131 while (IO::Select->new($s)->can_read(3)) {
132 sysread($s, my $buffer, 4096);
133 $data .= $buffer;
134 last if $data =~ /^\x0d\x0a/ms;
135 }
136
137 }
138
139 return $data;
140 }
141
142 sub count_keepalive {
143 my ($str) = @_;
144 return $str =~ s/Connection: keep-alive//g;
145 }
146
147 ###############################################################################