Mercurial > hg > nginx-tests
comparison server_tokens.t @ 878:327044615c87
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 ############################################################################### |