nginx-tests: http_server

annotate http_server_name.t @ 682:c68b7bbdf21a

Tests: style. Moved subroutines section, simplified configuration.

author	Andrey Zelenkov <zelenkov@nginx.com>
date	Tue, 08 Sep 2015 15:11:45 +0300
parents	6a0d934950bc
children	49aea425392d

rev	line source
114 44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	1 #!/usr/bin/perl
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	2
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	3 # (C) Maxim Dounin
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	4
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	5 # Tests for server_name selection.
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	6
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	7 ###############################################################################
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	8
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	9 use warnings;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	10 use strict;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	11
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	12 use Test::More;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	13
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	14 BEGIN { use FindBin; chdir($FindBin::Bin); }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	15
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	16 use lib 'lib';
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	17 use Test::Nginx;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	18
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	19 ###############################################################################
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	20
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	21 select STDERR; $\| = 1;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	22 select STDOUT; $\| = 1;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	23
223 f9325406df0b Tests: skip tests not appropriate for win32. Maxim Dounin <mdounin@mdounin.ru> parents: 210 diff changeset	24 plan(skip_all => 'win32') if $^O eq 'MSWin32';
f9325406df0b Tests: skip tests not appropriate for win32. Maxim Dounin <mdounin@mdounin.ru> parents: 210 diff changeset	25
121 8ac1faaddd2c Tests: better handle various configure arguments. Maxim Dounin <mdounin@mdounin.ru> parents: 115 diff changeset	26 my $t = Test::Nginx->new()->has(qw/http rewrite/)->plan(9)
114 44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	27 ->write_file_expand('nginx.conf', <<'EOF');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	28
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	29 %%TEST_GLOBALS%%
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	30
249 6a0d934950bc Tests: remove extra spaces in "daemon off". Maxim Dounin <mdounin@mdounin.ru> parents: 223 diff changeset	31 daemon off;
114 44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	32
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	33 events {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	34 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	35
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	36 http {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	37 %%TEST_GLOBALS_HTTP%%
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	38
210 a5f810eb87a2 Tests: explicitly set server names hash bucket size to 64. Maxim Dounin <mdounin@mdounin.ru> parents: 171 diff changeset	39 server_names_hash_bucket_size 64;
a5f810eb87a2 Tests: explicitly set server names hash bucket size to 64. Maxim Dounin <mdounin@mdounin.ru> parents: 171 diff changeset	40
114 44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	41 server {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	42 listen 127.0.0.1:8080;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	43 server_name localhost;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	44
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	45 location / {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	46 add_header X-Server $server_name;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	47 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	48 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	49
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	50 server {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	51 listen 127.0.0.1:8080;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	52 server_name www.example.com;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	53
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	54 location / {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	55 add_header X-Server $server_name;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	56 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	57 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	58
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	59 server {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	60 listen 127.0.0.1:8080;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	61 server_name ~^EXAMPLE\.COM$;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	62
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	63 location / {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	64 add_header X-Server $server_name;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	65 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	66 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	67
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	68 server {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	69 listen 127.0.0.1:8080;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	70 server_name ~^(?P<name>.+)\Q.example.com\E$;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	71
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	72 location / {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	73 add_header X-Server $server_name;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	74 add_header X-Match $name;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	75 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	76 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	77
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	78 server {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	79 listen 127.0.0.1:8080;
171 cfb8147f19a7 Tests: use (?P<name>...) to be compatible with old PCRE versions. Maxim Dounin <mdounin@mdounin.ru> parents: 166 diff changeset	80 server_name "~^(?P<name>www\p{N}+)\.example\.com$";
114 44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	81
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	82 location / {
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	83 add_header X-Server $server_name;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	84 add_header X-Match $name;
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	85 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	86 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	87 }
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	88
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	89 EOF
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	90
682 c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	91 $t->write_file('index.html', '');
114 44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	92 $t->run();
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	93
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	94 ###############################################################################
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	95
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	96 like(http_server('xxx'), qr/X-Server: localhost/, 'default');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	97
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	98 like(http_server('www.example.com'), qr/\QX-Server: www.example.com/,
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	99 'www.example.com');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	100 like(http_server('WWW.EXAMPLE.COM'), qr/\QX-Server: www.example.com/,
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	101 'www.example.com uppercase');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	102
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	103 like(http_server('example.com'), qr/\QX-Server: ~^EXAMPLE\.COM$/,
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	104 'example.com regex');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	105 like(http_server('EXAMPLE.COM'), qr/\QX-Server: ~^EXAMPLE\.COM$/,
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	106 'example.com regex uppercase');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	107
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	108 like(http_server('blah.example.com'), qr/X-Match: blah/,
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	109 '(P<name>.*).example.com named capture');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	110 like(http_server('BLAH.EXAMPLE.COM'), qr/X-Match: blah/,
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	111 '(P<name>.*).example.com named capture uppercase');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	112
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	113 like(http_server('www01.example.com'), qr/X-Match: www01/,
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	114 '\p{N} in named capture');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	115 like(http_server('WWW01.EXAMPLE.COM'), qr/X-Match: www01/,
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	116 '\p{N} in named capture uppercase');
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	117
44b281ac4bc6 Tests: add server name tests, including fancy regex ones. Maxim Dounin <mdounin@mdounin.ru> parents: diff changeset	118 ###############################################################################
682 c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	119
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	120 sub http_server {
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	121 my ($host) = @_;
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	122 return http(<<EOF);
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	123 GET / HTTP/1.0
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	124 Host: $host
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	125
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	126 EOF
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	127 }
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	128
c68b7bbdf21a Tests: style. Andrey Zelenkov <zelenkov@nginx.com> parents: 249 diff changeset	129 ###############################################################################

Mercurial > hg > nginx-tests

annotate http_server_name.t @ 682:c68b7bbdf21a