Mercurial > hg > nginx-tests
view slice.t @ 1248:70192b1baf01
Tests: added exception test to stream_js.t using 'require'.
The stream js tests introduced in edf5a3c9e36a fail on njs 0.1.14. It doesn't
currently provide an easy way to check its version, whilst we are obligated to
gracefully handle such cases somehow. With such an addition of 'require', now
the tests are skipped instead on the previous versions.
author | Sergey Kandaurov <pluknet@nginx.com> |
---|---|
date | Tue, 21 Nov 2017 13:16:39 +0300 |
parents | 0c15ba7d19b3 |
children | 766bcbb632ee |
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 qw/ :DEFAULT http_end /; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; my $t = Test::Nginx->new()->has(qw/http proxy cache fastcgi slice rewrite/) ->plan(76); $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_path %%TESTDIR%%/cach3 keys_zone=NAME3: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 /proxy/ { slice 2; proxy_pass http://127.0.0.1:8081/; proxy_set_header Range $slice_range; } 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; } location /cache-redirect { error_page 404 = @fallback; } location @fallback { slice 2; proxy_pass http://127.0.0.1:8081/t$is_args$args; proxy_cache NAME3; proxy_set_header Range $slice_range; proxy_cache_valid 200 206 1h; } } server { listen 127.0.0.1:8081; server_name localhost; location / { if ($http_range = "") { set $limit_rate 100; } } } } 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'); # respect Last-Modified from non-cacheable response with If-Range TODO: { local $TODO = 'not yet' unless $t->has_version('1.13.5'); my ($lm) = http_get('/t') =~ /Last-Modified: (.*)/; $r = get('/proxy/t', "Range: bytes=3-4\nIf-Range: $lm"); like($r, qr/ 206 /, 'if-range last-modified proxy - 206 partial reply'); like($r, qr/^34$/m, 'if-range last-modified proxy - 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'); } # slicing in named location my $s = http_get('/cache-redirect', start => 1); # loop protection used with limit_rate, exit loop if subrequest has lost range unless ($t->has_version('1.11.10')) { select undef, undef, undef, 0.2; $t->write_file('/cache-redirect', ''); } $r = http_end($s); TODO: { local $TODO = 'not yet' unless $t->has_version('1.11.10'); like($r, qr/ 200 .*^0123456789abcdef$/ms, 'in named location'); is(scalar @{[ glob $t->testdir() . '/cach3/*' ]}, 8, 'in named location - cache entries'); } ############################################################################### 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); } ###############################################################################