Mercurial > hg > nginx-tests

comparison server_tokens.t @ 878:327044615c87

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: added http_get_server subroutine in server_tokens.t.
author Andrey Zelenkov <zelenkov@nginx.com>
date Wed, 23 Mar 2016 19:58:55 +0300
parents 8c7414010ae8
children 56ed4be9ff41
comparison
equal deleted inserted replaced
877:8c7414010ae8 878:327044615c87
9 9
10 use warnings; 10 use warnings;
11 use strict; 11 use strict;
12 12
13 use Test::More; 13 use Test::More;
14
15 use Socket qw/ $CRLF /;
16 14
17 BEGIN { use FindBin; chdir($FindBin::Bin); } 15 BEGIN { use FindBin; chdir($FindBin::Bin); }
18 16
19 use lib 'lib'; 17 use lib 'lib';
20 use Test::Nginx; 18 use Test::Nginx;
78 76
79 $t->run(); 77 $t->run();
80 78
81 ############################################################################### 79 ###############################################################################
82 80
83 like(http_get('/200'), qr/Server: nginx\/\d+\.\d+\.\d+/, 'tokens default 200'); 81 like(http_get_server('/200'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens default 200');
84 like(http_get('/404'), qr/Server: nginx\/\d+\.\d+\.\d+/, 'tokens default 404'); 82 like(http_get_server('/404'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens default 404');
85 like(http_body('/404'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens default 404 body'); 83 like(http_body('/404'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens default 404 body');
86 84
87 like(http_get('/off/200'), qr/Server: nginx${CRLF}/, 'tokens off 200'); 85 is(http_get_server('/off/200'), 'nginx', 'tokens off 200');
88 like(http_get('/off/404'), qr/Server: nginx${CRLF}/, 'tokens off 404'); 86 is(http_get_server('/off/404'), 'nginx', 'tokens off 404');
89 like(http_body('/off/404'), qr/nginx(?!\/)/, 'tokens off 404 body'); 87 like(http_body('/off/404'), qr/nginx(?!\/)/, 'tokens off 404 body');
90 88
91 like(http_get('/on/200'), qr/Server: nginx\/\d+\.\d+\.\d+/, 'tokens on 200'); 89 like(http_get_server('/on/200'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens on 200');
92 like(http_get('/on/404'), qr/Server: nginx\/\d+\.\d+\.\d+/, 'tokens on 404'); 90 like(http_get_server('/on/404'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens on 404');
93 like(http_body('/on/404'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens on 404 body'); 91 like(http_body('/on/404'), qr/nginx\/\d+\.\d+\.\d+/, 'tokens on 404 body');
94 92
95 ############################################################################### 93 ###############################################################################
96 94
97 sub http_body { 95 sub http_body {
98 my ($uri) = shift; 96 my ($uri) = shift;
99 return http_get($uri) =~ /.*?\x0d\x0a?\x0d\x0a?(.*)/ms && $1; 97 return http_get($uri) =~ /.*?\x0d\x0a?\x0d\x0a?(.*)/ms && $1;
100 } 98 }
101 99
100 sub http_get_server {
101 my ($url) = @_;
102 http_get($url) =~ /^Server:\s(.+?)\x0d?$/mi;
103 return $1;
104 }
105
102 ############################################################################### 106 ###############################################################################