Mercurial > hg > nginx-tests
view proxy_cache_revalidate.t @ 457:4ceb2d12b7d2
Tests: speedup upstream_hash.t on win32.
Closed ports doesn't return immediate RST at least on some versions of Windows,
resulting in tests being painfully slow.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Mon, 01 Sep 2014 14:46:21 +0400 |
parents | f620d9529ed6 |
children | 43e05ac6c23c |
line wrap: on
line source
#!/usr/bin/perl # (C) Maxim Dounin # Tests for http proxy cache revalidation with conditional requests. ############################################################################### use warnings; use strict; use Test::More; use Socket qw/ CRLF /; BEGIN { use FindBin; chdir($FindBin::Bin); } use lib 'lib'; use Test::Nginx qw/ :DEFAULT :gzip /; ############################################################################### select STDERR; $| = 1; select STDOUT; $| = 1; plan(skip_all => 'win32') if $^O eq 'MSWin32'; my $t = Test::Nginx->new()->has(qw/http proxy cache/) ->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } http { %%TEST_GLOBALS_HTTP%% proxy_cache_path %%TESTDIR%%/cache levels=1:2 keys_zone=one:1m; proxy_cache_revalidate on; server { listen 127.0.0.1:8080; server_name localhost; location / { proxy_pass http://127.0.0.1:8081; proxy_cache one; proxy_cache_valid 200 1s; add_header X-Cache-Status $upstream_cache_status; } } server { listen 127.0.0.1:8081; server_name localhost; location / { } location /etag/ { proxy_pass http://127.0.0.1:8081/; proxy_hide_header Last-Modified; } } } EOF $t->write_file('t', 'SEE-THIS'); $t->write_file('t2', 'SEE-THIS'); $t->run()->plan(17); ############################################################################### # request documents and make sure they are cached like(http_get('/t'), qr/X-Cache-Status: MISS.*SEE/ms, 'request'); like(http_get('/t'), qr/X-Cache-Status: HIT.*SEE/ms, 'request cached'); like(http_get('/t2'), qr/X-Cache-Status: MISS.*SEE/ms, '2nd request'); like(http_get('/t2'), qr/X-Cache-Status: HIT.*SEE/ms, '2nd request cached'); like(http_get('/etag/t'), qr/X-Cache-Status: MISS.*SEE/ms, 'etag'); like(http_get('/etag/t'), qr/X-Cache-Status: HIT.*SEE/ms, 'etag cached'); like(http_get('/etag/t2'), qr/X-Cache-Status: MISS.*SEE/ms, 'etag2'); like(http_get('/etag/t2'), qr/X-Cache-Status: HIT.*SEE/ms, 'etag2 cached'); # wait for a while for cached responses to expire select undef, undef, undef, 2.5; # 1st document isn't modified, and should be revalidated on first request # (a 304 status code will appear in backend's logs), then cached again like(http_get('/t'), qr/X-Cache-Status: REVALIDATED.*SEE/ms, 'revalidated'); like(http_get('/t'), qr/X-Cache-Status: HIT.*SEE/ms, 'cached again'); select undef, undef, undef, 0.1; like(read_file($t->testdir() . '/access.log'), qr/ 304 /, 'not modified'); # 2nd document is recreated with a new content $t->write_file('t2', 'NEW'); like(http_get('/t2'), qr/X-Cache-Status: EXPIRED.*NEW/ms, 'revalidate failed'); like(http_get('/t2'), qr/X-Cache-Status: HIT.*NEW/ms, 'new response cached'); # the same for etag: # 1st document isn't modified # 2nd document is recreated TODO: { local $TODO = 'not yet'; like(http_get('/etag/t'), qr/X-Cache-Status: REVALIDATED.*SEE/ms, 'etag revalidated'); } like(http_get('/etag/t'), qr/X-Cache-Status: HIT.*SEE/ms, 'etag cached again'); like(http_get('/etag/t2'), qr/X-Cache-Status: EXPIRED.*NEW/ms, 'etag2 revalidate failed'); like(http_get('/etag/t2'), qr/X-Cache-Status: HIT.*NEW/ms, 'etag2 new response cached'); ############################################################################### sub read_file { my ($file) = @_; my $log; local $/; open LOG, $file or die "Can't open $file: $!\n"; $log = <LOG>; close LOG; return $log; } ###############################################################################