Mercurial > hg > nginx-tests
annotate http-server-name.t @ 114:44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
With test config nginx will fail to start as of 0.8.28 due to incorrect
conversion of regular expressions to lowercase. Patch was discussed on
mailing list and will be included in next release.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Mon, 30 Nov 2009 14:47:17 +0300 |
parents | |
children | cb1b04d8de29 |
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 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
24 my $t = Test::Nginx->new()->has('rewrite') |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
25 ->write_file_expand('nginx.conf', <<'EOF'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
26 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
27 %%TEST_GLOBALS%% |
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 master_process off; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
30 daemon off; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
31 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
32 events { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
33 } |
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 http { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
36 %%TEST_GLOBALS_HTTP%% |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
37 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
38 server { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
39 listen 127.0.0.1:8080; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
40 server_name localhost; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
41 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
42 location / { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
43 add_header X-Server $server_name; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
44 return 204; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
45 } |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
46 } |
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 server { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
49 listen 127.0.0.1:8080; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
50 server_name www.example.com; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
51 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
52 location / { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
53 add_header X-Server $server_name; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
54 return 204; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
55 } |
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 server { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
59 listen 127.0.0.1:8080; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
60 server_name ~^EXAMPLE\.COM$; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
61 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
62 location / { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
63 add_header X-Server $server_name; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
64 return 204; |
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 return 204; |
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 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
79 server { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
80 listen 127.0.0.1:8080; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
81 server_name "~^(?<name>www\p{N}+)\.example\.com$"; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
82 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
83 location / { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
84 add_header X-Server $server_name; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
85 add_header X-Match $name; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
86 return 204; |
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 } |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
90 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
91 EOF |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
92 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
93 eval { |
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 $t->run(); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
96 |
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 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
99 if ($@) { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
100 plan(skip_all => 'not patched yet'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
101 } |
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 $t->plan(9); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
104 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
105 ############################################################################### |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
106 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
107 sub http_server($) { |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
108 my ($host) = @_; |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
109 return http(<<EOF); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
110 GET / HTTP/1.0 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
111 Host: $host |
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 EOF |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
114 } |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
115 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
116 ############################################################################### |
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 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
|
119 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
120 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
|
121 'www.example.com'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
122 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
|
123 'www.example.com uppercase'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
124 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
125 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
|
126 'example.com regex'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
127 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
|
128 'example.com regex uppercase'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
129 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
130 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
|
131 '(P<name>.*).example.com named capture'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
132 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
|
133 '(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
|
134 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
135 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
|
136 '\p{N} in named capture'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
137 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
|
138 '\p{N} in named capture uppercase'); |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
139 |
44b281ac4bc6
Tests: add server name tests, including fancy regex ones.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
140 ############################################################################### |