Mercurial > hg > nginx-tests
annotate rewrite_unescape.t @ 149:2178954eee5d
Tests: add tests for rewrite escaping problems.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Fri, 04 Mar 2011 17:34:57 +0300 |
parents | |
children | c0ae29632905 |
rev | line source |
---|---|
149
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
1 #!/usr/bin/perl |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
2 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
3 # (C) Maxim Dounin |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
4 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
5 # Tests for escaping/unescaping in rewrite module. |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
6 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
7 ############################################################################### |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
8 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
9 use warnings; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
10 use strict; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
11 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
12 use Test::More; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
13 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
14 BEGIN { use FindBin; chdir($FindBin::Bin); } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
15 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
16 use lib 'lib'; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
17 use Test::Nginx; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
18 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
19 ############################################################################### |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
20 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
21 select STDERR; $| = 1; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
22 select STDOUT; $| = 1; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
23 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
24 my $t = Test::Nginx->new()->has(qw/http rewrite/)->plan(9) |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
25 ->write_file_expand('nginx.conf', <<'EOF'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
26 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
27 %%TEST_GLOBALS%% |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
28 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
29 master_process off; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
30 daemon off; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
31 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
32 events { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
33 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
34 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
35 http { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
36 %%TEST_GLOBALS_HTTP%% |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
37 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
38 server { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
39 listen 127.0.0.1:8080; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
40 server_name localhost; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
41 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
42 location /t1 { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
43 rewrite ^ $arg_r? redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
44 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
45 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
46 location /t2 { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
47 rewrite ^ http://example.com$request_uri? redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
48 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
49 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
50 location /t3 { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
51 rewrite ^ http://example.com$uri redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
52 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
53 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
54 location /t4 { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
55 rewrite ^(.*) http://example.com$1 redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
56 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
57 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
58 location /t5 { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
59 rewrite ^ http://example.com/blah%20%3Fblah redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
60 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
61 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
62 location /t6 { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
63 rewrite ^ http://example.com/blah%20%2Fblah redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
64 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
65 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
66 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
67 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
68 EOF |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
69 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
70 mkdir($t->testdir() . '/directory'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
71 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
72 $t->run(); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
73 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
74 ############################################################################### |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
75 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
76 # Some rewrites and expected (?) behaviour |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
77 # |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
78 # /t1?r=http%3A%2F%2Fexample.com%2F%3Ffrom |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
79 # rewrite ^ $arg_r? redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
80 # expected: http://example.com/?from |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
81 # got: http://example.com/?from |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
82 # |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
83 # /t1?r=http%3A%2F%2Fexample.com%0D%0Asplit |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
84 # rewrite ^ $arg_r? redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
85 # expected: http://example.com%0D%0Asplit |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
86 # got: http://example.com%0D%0Asplit |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
87 # |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
88 # /t1?r=http%3A%2F%2Fexample.com%2F%3Ffrom%3Dblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
89 # rewrite ^ $arg_r? redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
90 # expected: http://example.com/?from=blah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
91 # got: http://example.com/?from%3Dblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
92 # |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
93 # /blah%3Fblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
94 # rewrite ^ http://example.com$request_uri? redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
95 # expected: http://example.com/blah%3Fblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
96 # got: http://example.com/blah?blah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
97 # |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
98 # /blah%3Fblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
99 # rewrite ^ http://example.com$uri redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
100 # expected: http://example.com/blah%3Fblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
101 # got: http://example.com/blah?blah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
102 # |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
103 # /blah%3Fblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
104 # rewrite ^(.*) http://example.com$1 redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
105 # expected: http://example.com/blah%3Fblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
106 # got: http://example.com/blah?blah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
107 # |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
108 # / |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
109 # rewrite ^ http://example.com/blah%3Fblah redirect; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
110 # expected: http://example.com/blah%3Fblah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
111 # got: http://example.com/blah?blah |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
112 # |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
113 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
114 location('/t1?r=http%3A%2F%2Fexample.com%2F%3Ffrom', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
115 'http://example.com/?from', 'escaped argument'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
116 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
117 location('/t1?r=http%3A%2F%2Fexample.com%0D%0Asplit', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
118 'http://example.com%0D%0Asplit', 'escaped argument header splitting'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
119 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
120 TODO: { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
121 local $TODO = 'not yet'; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
122 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
123 # Fixing this cases will require major changes to the whole aproach and |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
124 # likely to break some currently working cases. On the other hand, current |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
125 # behaviour is far from acceptable. Should be carefully thought. |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
126 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
127 location('/t1?r=http%3A%2F%2Fexample.com%2F%3Ffrom%3Dblah', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
128 'http://example.com/?from=blah', 'escaped argument with complex query'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
129 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
130 location('/t2/blah%20%3Fblah', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
131 'http://example.com/t2/blah%20%3Fblah', 'escaped $request_uri'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
132 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
133 location('/t3/blah%20%3Fblah', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
134 'http://example.com/t3/blah%20%3Fblah', 'escaped $uri'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
135 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
136 location('/t4/blah%20%3Fblah', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
137 'http://example.com/t4/blah%20%3Fblah', 'escaped $1'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
138 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
139 location('/t5', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
140 'http://example.com/blah%20%3Fblah', 'escaped static'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
141 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
142 location('/t5?arg=blah', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
143 'http://example.com/blah%20%3Fblah?arg=blah', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
144 'escaped static with argument'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
145 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
146 location('/t6', |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
147 'http://example.com/blah%20%2Fblah', 'escaped static slash'); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
148 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
149 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
150 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
151 ############################################################################### |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
152 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
153 sub location { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
154 my ($url, $value, $name) = @_; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
155 my $data = http_get($url); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
156 if ($data !~ qr!^Location: (.*?)\x0d?$!ms) { |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
157 fail($name); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
158 return; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
159 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
160 my $location = $1; |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
161 is($location, $value, $name); |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
162 } |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
163 |
2178954eee5d
Tests: add tests for rewrite escaping problems.
Maxim Dounin <mdounin@mdounin.ru>
parents:
diff
changeset
|
164 ############################################################################### |