Mercurial > hg > nginx-tests
diff proxy_limit_rate.t @ 482:6d35acdf9a61
Tests: proxy_limit_rate simple test.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 28 Oct 2014 14:10:50 +0300 |
parents | |
children | c2481c6b748f |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/proxy_limit_rate.t Tue Oct 28 14:10:50 2014 +0300 @@ -0,0 +1,71 @@ +#!/usr/bin/perl + +# (C) Sergey Kandaurov +# (C) Nginx, Inc. + +# Tests for the proxy_limit_rate directive. + +############################################################################### + +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()->has(qw/http proxy/); + +$t->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; + + location / { + proxy_pass http://127.0.0.1:8080/data; + proxy_limit_rate 12000; + } + + location /data { + } + } +} + +EOF + +$t->write_file('data', 'X' x 40000); +$t->try_run('no proxy_limit_rate')->plan(2); + +############################################################################### + +my $t1 = time(); + +my $r = http_get('/'); + +my $diff = time() - $t1; + +# four chunks are split with three 1s delays + 1s error + +cmp_ok(abs($diff - 3), '<=', 1, 'proxy_limit_rate'); +like($r, qr/^(XXXXXXXXXX){4000}\x0d?\x0a?$/m, 'response body'); + +###############################################################################