Mercurial > hg > nginx-tests
view http_keepalive.t @ 1434:fc8341cf92a3
Tests: removed ngx_parse_inet6_url() "::" test from proxy.t.
It results in WSAEADDRNOTAVAIL on win32, be the connection errors detected,
which leads to connect() alert. On other systems, connect() is successful
but it uses the default port (80), which is out of documented ports range.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Thu, 24 Jan 2019 17:05:04 +0300 |
parents | 6c4f9941ae9f |
children | 1a409a166420 |
line wrap: on
line source
#!/usr/bin/perl # (C) Andrey Zelenkov # (C) Nginx, Inc. # Tests for http keepalive directives. ############################################################################### use warnings; use strict; use Test::More; use IO::Select; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->has(qw/http/)->plan(13) ->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } http { %%TEST_GLOBALS_HTTP%% server { listen 127.0.0.1:8080; server_name localhost; keepalive_requests 2; keepalive_timeout 1 9; location / { } location /r { keepalive_requests 4; } location /safari { keepalive_disable safari; } location /none { keepalive_disable none; } location /zero { keepalive_timeout 0; } } } EOF $t->write_file('index.html', ''); $t->write_file('r', ''); $t->write_file('safari', ''); $t->write_file('none', ''); $t->write_file('zero', ''); $t->run(); ############################################################################### # keepalive_requests like(http_keepalive('/'), qr/Connection: keep-alive/, 'keepalive request'); is(count_keepalive(http_keepalive('/', req => 2)), 1, 'keepalive limit'); is(count_keepalive(http_keepalive('/r', req => 3)), 3, 'keepalive merge'); is(count_keepalive(http_keepalive('/r', req => 5)), 3, 'keepalive merge limit'); # keepalive_disable like(http_keepalive('/', method => 'POST', ua => "MSIE 5.0"), qr/Connection: close/, 'keepalive disable msie6'); like(http_keepalive('/', ua => "MSIE 5.0"), qr/Connection: keep-alive/, 'keepalive disable msie6 GET'); like(http_keepalive('/', method => 'POST', ua => "MSIE 7.0"), qr/Connection: keep-alive/, 'keepalive disable msie6 modern'); like(http_keepalive('/', ua => "Mac OS X Safari/7534.48.3"), qr/Connection: keep-alive/, 'keepalive disable msie6 safari'); like(http_keepalive('/safari', ua => "Mac OS X Safari/7534.48.3"), qr/Connection: close/, 'keepalive disable safari'); like(http_keepalive('/none', method => 'POST', ua => "MSIE 5.0"), qr/Connection: keep-alive/, 'keepalive disable none'); # keepalive_timeout my $r = http_keepalive('/', req => 2, sleep => 2.1); is(count_keepalive($r), 1, 'keepalive timeout request'); like($r, qr/Keep-Alive: timeout=9/, 'keepalive timeout header'); like(http_keepalive('/zero'), qr/Connection: close/, 'keepalive timeout 0'); ############################################################################### sub http_keepalive { my ($url, %opts) = @_; my $data = ''; $opts{ua} = $opts{ua} || ''; $opts{req} = $opts{req} || 1; $opts{sleep} = $opts{sleep} || 0; $opts{method} = $opts{method} || 'GET'; local $SIG{PIPE} = 'IGNORE'; my $s = http('', start => 1); for my $i (1 .. $opts{req}) { my $sleep = ($i == 1 ? $opts{sleep} : 0); http(<<EOF, socket => $s, start => 1, sleep => $sleep); $opts{method} $url HTTP/1.1 Host: localhost User-Agent: $opts{ua} EOF while (IO::Select->new($s)->can_read(3)) { sysread($s, my $buffer, 4096) or last; $data .= $buffer; last if $data =~ /^\x0d\x0a/ms; } log_in($data); } return $data; } sub count_keepalive { my ($str) = @_; return $str =~ s/Connection: keep-alive//g; } ###############################################################################