comparison proxy_redirect.t @ 224:ba992cfdc606

Tests: remove TODO from tests which pass in 1.2.x.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 03 Jun 2012 14:47:10 +0400
parents 3f59e6a843bd
children e9064d691790
comparison
equal deleted inserted replaced
223:f9325406df0b 224:ba992cfdc606
113 is(http_get_location('http://127.0.0.1:8080/off/test.html'), 113 is(http_get_location('http://127.0.0.1:8080/off/test.html'),
114 'http://127.0.0.1:8081/test.html', 'rewrite off'); 114 'http://127.0.0.1:8081/test.html', 'rewrite off');
115 is(http_get_location('http://127.0.0.1:8080/off/on/test.html'), 115 is(http_get_location('http://127.0.0.1:8080/off/on/test.html'),
116 'http://127.0.0.1:8080/on/test.html', 'rewrite off overwrite'); 116 'http://127.0.0.1:8080/on/test.html', 'rewrite off overwrite');
117 117
118 TODO: {
119 local $TODO = 'rewrite off inheritance bug';
120
121 is(http_get_location('http://127.0.0.1:8080/off/on/on/test.html'), 118 is(http_get_location('http://127.0.0.1:8080/off/on/on/test.html'),
122 'http://127.0.0.1:8080/on/on/test.html', 'rewrite inheritance'); 119 'http://127.0.0.1:8080/on/on/test.html', 'rewrite inheritance');
123
124 }
125
126 TODO: {
127 local $TODO = 'support variables in first argument';
128 120
129 is(http_get_location('http://127.0.0.1:8080/var_here/test.html'), 121 is(http_get_location('http://127.0.0.1:8080/var_here/test.html'),
130 'http://127.0.0.1:8080/replaced/test.html', 'variable in first arg'); 122 'http://127.0.0.1:8080/replaced/test.html', 'variable in first arg');
131 is(http_get_refresh('http://127.0.0.1:8080/var_here/test.html'), 123 is(http_get_refresh('http://127.0.0.1:8080/var_here/test.html'),
132 '7; url=/replaced/test.html', 'variable in first arg (refresh)'); 124 '7; url=/replaced/test.html', 'variable in first arg (refresh)');
133 125
134 }
135
136 TODO: {
137 local $TODO = 'support for regular expressions';
138
139 is(http_get_location('http://127.0.0.1:8080/ReeegEX/test.html'), 126 is(http_get_location('http://127.0.0.1:8080/ReeegEX/test.html'),
140 'http://127.0.0.1:8080/replaced/test.html', 'caseless regexp'); 127 'http://127.0.0.1:8080/replaced/test.html', 'caseless regexp');
141 is(http_get_location('http://127.0.0.1:8080/regex_w_captures/test.html'), 128 is(http_get_location('http://127.0.0.1:8080/regex_w_captures/test.html'),
142 'http://127.0.0.1:8080/captures/test.html', 'regexp w/captures'); 129 'http://127.0.0.1:8080/captures/test.html', 'regexp w/captures');
143
144 }
145
146 TODO: {
147 local $TODO = 'regular expressions and Refresh header';
148 130
149 is(http_get_refresh('http://127.0.0.1:8080/ReeegEX/test.html'), 131 is(http_get_refresh('http://127.0.0.1:8080/ReeegEX/test.html'),
150 '7; url=/replaced/test.html', 'caseless regexp (refresh)'); 132 '7; url=/replaced/test.html', 'caseless regexp (refresh)');
151 is(http_get_refresh('http://127.0.0.1:8080/regex_w_captures/test.html'), 133 is(http_get_refresh('http://127.0.0.1:8080/regex_w_captures/test.html'),
152 '7; url=http://127.0.0.1:8080/captures/test.html', 134 '7; url=http://127.0.0.1:8080/captures/test.html',
153 'regexp w/captures (refresh)'); 135 'regexp w/captures (refresh)');
154
155 }
156 136
157 ############################################################################### 137 ###############################################################################
158 138
159 sub http_get_location { 139 sub http_get_location {
160 my ($url) = @_; 140 my ($url) = @_;