Mercurial > hg > nginx-tests
view server_tokens.t @ 877:8c7414010ae8
Tests: adjust server_tokens.t for backed out changes.
author | Andrey Zelenkov <zelenkov@nginx.com> |
---|---|
date | Wed, 23 Mar 2016 19:34:13 +0300 |
parents | 66b8e350b9c8 |
children | 327044615c87 |
line wrap: on
line source
#!/usr/bin/perl # (C) Andrey Zelenkov # (C) Nginx, Inc. # Tests for server_tokens directive. ############################################################################### use warnings; use strict; use Test::More; use Socket qw/ $CRLF /; 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 rewrite/)->plan(9) ->write_file_expand('nginx.conf', <<'EOF'); %%TEST_GLOBALS%% daemon off; events { } http { %%TEST_GLOBALS_HTTP%% server { listen 127.0.0.1:8080; location /200 { return 200; } location /404 { return 404; } location /off { server_tokens off; location /off/200 { return 200; } location /off/404 { return 404; } } location /on { server_tokens on; location /on/200 { return 200; } location /on/404 { return 404; } } } } EOF $t->run(); ############################################################################### like(http_get('/200'), qr/Server: nginx\/\d+\.\d+\.\d+/, 'tokens default 200'); like(http_get('/404'), qr/Server: nginx\/\d+\.\d+\.\d+/, 'tokens default 404'); like(http_body('/404'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens default 404 body'); like(http_get('/off/200'), qr/Server: nginx${CRLF}/, 'tokens off 200'); like(http_get('/off/404'), qr/Server: nginx${CRLF}/, 'tokens off 404'); like(http_body('/off/404'), qr/nginx(?!\/)/, 'tokens off 404 body'); like(http_get('/on/200'), qr/Server: nginx\/\d+\.\d+\.\d+/, 'tokens on 200'); like(http_get('/on/404'), qr/Server: nginx\/\d+\.\d+\.\d+/, 'tokens on 404'); like(http_body('/on/404'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens on 404 body'); ############################################################################### sub http_body { my ($uri) = shift; return http_get($uri) =~ /.*?\x0d\x0a?\x0d\x0a?(.*)/ms && $1; } ###############################################################################