Mercurial > hg > nginx-tests
view slice.t @ 1021:ebdf239722b9
Tests: relaxed proxy_cache_lock.t nolock tests to fix on Solaris.
Assumed that the order of responses being arrived in nolock case may be ignored.
An important part of such case is that the only last response should be cached.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Fri, 02 Sep 2016 12:17:35 +0300 |
parents | 196d33c2bb45 |
children | 1173800a4a19 |
line wrap: on
line source
#!/usr/bin/perl # (C) Sergey Kandaurov # (C) Nginx, Inc. # Tests for slice filter. ############################################################################### 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 cache fastcgi slice/) ->plan(72); $t->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } http { %%TEST_GLOBALS_HTTP%% proxy_cache_path %%TESTDIR%%/cache keys_zone=NAME:1m; proxy_cache_key $uri$is_args$args$slice_range; fastcgi_cache_path %%TESTDIR%%/cache2 keys_zone=NAME2:1m; fastcgi_cache_key $uri$is_args$args$slice_range; server { listen 127.0.0.1:8080; server_name localhost; location / { } location /cache/ { slice 2; proxy_pass http://127.0.0.1:8081/; proxy_cache NAME; proxy_set_header Range $slice_range; proxy_cache_valid 200 206 1h; add_header X-Cache-Status $upstream_cache_status; } location /fastcgi { slice 2; fastcgi_pass 127.0.0.1:8082; fastcgi_cache NAME2; fastcgi_param Range $slice_range; fastcgi_cache_valid 200 206 1h; fastcgi_force_ranges on; add_header X-Cache-Status $upstream_cache_status; } } server { listen 127.0.0.1:8081; server_name localhost; location / { } } } EOF $t->write_file('t', '0123456789abcdef'); $t->run(); ############################################################################### my $r; like(http_get('/cache/nx'), qr/ 404 /, 'not found'); like(http_get('/cache/t'), qr/ 200 .*0123456789abcdef$/ms, 'no range'); $r = get('/cache/t?single', "Range: bytes=0-0"); like($r, qr/ 206 /, 'single - 206 partial reply'); like($r, qr/^0$/m, 'single - correct content'); like($r, qr/Status: MISS/m, 'single - cache status'); $r = get('/cache/t?single', "Range: bytes=0-0"); like($r, qr/ 206 /, 'single cached - 206 partial reply'); like($r, qr/^0$/m, 'single cached - correct content'); like($r, qr/Status: HIT/m, 'single cached - cache status'); $r = get('/cache/t?single', "Range: bytes=1-1"); like($r, qr/ 206 /, 'single next - 206 partial reply'); like($r, qr/^1$/m, 'single next - correct content'); like($r, qr/Status: HIT/m, 'single next - cache status'); $r = get('/cache/t?single', "Range: bytes=2-2"); like($r, qr/ 206 /, 'slice next - 206 partial reply'); like($r, qr/^2$/m, 'slice next - correct content'); like($r, qr/Status: MISS/m, 'slice next - cache status'); $r = get('/cache/t?single', "Range: bytes=2-2"); like($r, qr/ 206 /, 'slice next cached - 206 partial reply'); like($r, qr/^2$/m, 'slice next cached - correct content'); like($r, qr/Status: HIT/m, 'slice next cached - cache status'); $r = get('/cache/t?median', "Range: bytes=2-2"); like($r, qr/ 206 /, 'slice median - 206 partial reply'); like($r, qr/^2$/m, 'slice median - correct content'); like($r, qr/Status: MISS/m, 'slice median - cache status'); $r = get('/cache/t?median', "Range: bytes=0-0"); like($r, qr/ 206 /, 'before median - 206 partial reply'); like($r, qr/^0$/m, 'before median - correct content'); like($r, qr/Status: MISS/m, 'before median - cache status'); # range span to multiple slices $r = get('/cache/t?range', "Range: bytes=1-2"); like($r, qr/ 206 /, 'slice range - 206 partial reply'); like($r, qr/^12$/m, 'slice range - correct content'); like($r, qr/Status: MISS/m, 'slice range - cache status'); $r = get('/cache/t?range', "Range: bytes=0-0"); like($r, qr/ 206 /, 'slice 1st - 206 partial reply'); like($r, qr/^0$/m, 'slice 1st - correct content'); like($r, qr/Status: HIT/m, 'slice 1st - cache status'); $r = get('/cache/t?range', "Range: bytes=2-2"); like($r, qr/ 206 /, 'slice 2nd - 206 partial reply'); like($r, qr/^2$/m, 'slice 2nd - correct content'); like($r, qr/Status: HIT/m, 'slice 2nd - cache status'); $r = get('/cache/t?mrange', "Range: bytes=3-4"); like($r, qr/ 206 /, 'range median - 206 partial reply'); like($r, qr/^34$/m, 'range median - correct content'); like($r, qr/Status: MISS/m, 'range median - cache status'); $r = get('/cache/t?mrange', "Range: bytes=2-3"); like($r, qr/ 206 /, 'range prev - 206 partial reply'); like($r, qr/^23$/m, 'range prev - correct content'); like($r, qr/Status: HIT/m, 'range prev - cache status'); $r = get('/cache/t?mrange', "Range: bytes=4-5"); like($r, qr/ 206 /, 'range next - 206 partial reply'); like($r, qr/^45$/m, 'range next - correct content'); like($r, qr/Status: HIT/m, 'range next - cache status'); $r = get('/cache/t?first', "Range: bytes=2-"); like($r, qr/ 206 /, 'first bytes - 206 partial reply'); like($r, qr/^23456789abcdef$/m, 'first bytes - correct content'); like($r, qr/Status: MISS/m, 'first bytes - cache status'); $r = get('/cache/t?first', "Range: bytes=4-"); like($r, qr/ 206 /, 'first bytes cached - 206 partial reply'); like($r, qr/^456789abcdef$/m, 'first bytes cached - correct content'); like($r, qr/Status: HIT/m, 'first bytes cached - cache status'); # multiple ranges # we want 206, but 200 is also fine $r = get('/cache/t?many', "Range: bytes=3-3,4-4"); like($r, qr/200 OK/, 'many - 206 partial reply'); like($r, qr/^0123456789abcdef$/m, 'many - correct content'); $r = get('/cache/t?last', "Range: bytes=-10"); like($r, qr/206 /, 'last bytes - 206 partial reply'); like($r, qr/^6789abcdef$/m, 'last bytes - correct content'); # respect not modified and range filters my ($etag) = http_get('/t') =~ /ETag: (.*)/; like(get('/cache/t?inm', "If-None-Match: $etag"), qr/ 304 /, 'inm'); like(get('/cache/t?inm', "If-None-Match: bad"), qr/ 200 /, 'inm bad'); like(get('/cache/t?im', "If-Match: $etag"), qr/ 200 /, 'im'); like(get('/cache/t?im', "If-Match: bad"), qr/ 412 /, 'im bad'); $r = get('/cache/t?if', "Range: bytes=3-4\nIf-Range: $etag"); like($r, qr/ 206 /, 'if-range - 206 partial reply'); like($r, qr/^34$/m, 'if-range - correct content'); $r = get('/cache/t?ifb', "Range: bytes=3-4\nIf-Range: bad"); like($r, qr/ 200 /, 'if-range bad - 200 ok'); like($r, qr/^0123456789abcdef$/m, 'if-range bad - correct content'); # first slice isn't known $r = get('/cache/t?skip', "Range: bytes=6-7\nIf-Range: $etag"); like($r, qr/ 206 /, 'if-range skip slice - 206 partial reply'); like($r, qr/^67$/m, 'if-range skip slice - correct content'); $r = get('/cache/t?skip', "Range: bytes=6-7\nIf-Range: $etag"); like($r, qr/ 206 /, 'if-range skip slice - cached - 206 partial reply'); like($r, qr/^67$/m, 'if-range skip slice - cached - correct content'); like($r, qr/HIT/, 'if-range skip bytes - cached - cache status'); $r = get('/cache/t?skip', "Range: bytes=2-3"); like($r, qr/ 206 /, 'if-range skip slice - skipped - 206 partial reply'); like($r, qr/^23$/m, 'if-range skip slice - skipped - correct content'); like($r, qr/MISS/, 'if-range skip bytes - skipped - cache status'); SKIP: { eval { require FCGI; }; skip 'FCGI not installed', 5 if $@; skip 'win32', 5 if $^O eq 'MSWin32'; $t->run_daemon(\&fastcgi_daemon); $t->waitforsocket('127.0.0.1:' . port(8082)); like(http_get('/fastcgi'), qr/200 OK.*MISS.*^012345678$/ms, 'fastcgi'); like(http_get('/fastcgi'), qr/200 OK.*HIT.*^012345678$/ms, 'fastcgi cached'); like(get("/fastcgi?1", "Range: bytes=0-0"), qr/ 206 .*MISS.*^0$/ms, 'fastcgi slice'); like(get("/fastcgi?1", "Range: bytes=1-1"), qr/ 206 .*HIT.*^1$/ms, 'fastcgi slice cached'); like(get("/fastcgi?1", "Range: bytes=2-2"), qr/ 206 .*MISS.*^2$/ms, 'fastcgi slice next'); } ############################################################################### sub get { my ($url, $extra) = @_; return http(<<EOF); GET $url HTTP/1.1 Host: localhost Connection: close $extra EOF } ############################################################################### sub fastcgi_daemon { my $socket = FCGI::OpenSocket('127.0.0.1:' . port(8082), 5); my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket); my $body = '012345678'; my $len = length($body); while ($request->Accept() >= 0) { my ($start, $stop) = $ENV{Range} =~ /bytes=(\d+)-(\d+)/; my $body = substr($body, $start, ($stop - $start) + 1); $stop = $len - 1 if $stop > $len - 1; print <<EOF; Status: 206 Content-Type: text/html Content-Range: bytes $start-$stop/$len EOF print $body; } FCGI::CloseSocket($socket); } ###############################################################################