Mercurial > hg > nginx-tests
view expect-100-continue.t @ 103:4ae2198b97ec
Tests: limit_req tests for 0.8.18 changes and bug.
1. Make sure rejected requests are not counted, as leaky bucket algorithm
suggests (finally correctly done in 0.8.18).
2. Make sure negative excess values are handled properly (bug appeared in
0.8.18, fixed in 0.8.19).
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Fri, 09 Oct 2009 21:05:42 +0400 |
parents | 726c3c2a8b8c |
children | 1c0ec30614c6 |
line wrap: on
line source
#!/usr/bin/perl # (C) Maxim Dounin # Tests for Expect: 100-continue support. ############################################################################### use warnings; use strict; use Test::More; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->plan(2); $t->write_file_expand('nginx.conf', <<'EOF'); master_process off; daemon off; events { } http { access_log off; root %%TESTDIR%%; client_body_temp_path %%TESTDIR%%/client_body_temp; fastcgi_temp_path %%TESTDIR%%/fastcgi_temp; proxy_temp_path %%TESTDIR%%/proxy_temp; server { listen 127.0.0.1:8080; server_name localhost; location / { proxy_pass http://localhost:8080/local; } location /local { } } } EOF $t->run(); ############################################################################### like(http_100_request('/', '1.1'), qr/100/, 'expect 100 continue'); # From RFC 2616, 8.2.3 Use of the 100 (Continue) Status: # # - An origin server SHOULD NOT send a 100 (Continue) response if # the request message does not include an Expect request-header # field with the "100-continue" expectation, and MUST NOT send a # 100 (Continue) response if such a request comes from an HTTP/1.0 # (or earlier) client. unlike(http_100_request('/', '1.0'), qr/100/, 'no 100 continue via http 1.0'); ############################################################################### sub http_100_request { my ($url, $version) = @_; my $r = http(<<EOF); POST $url HTTP/$version Host: localhost Expect: 100-continue Content-Length: 0 Connection: close EOF } ###############################################################################