comparison http-location.t @ 119:18fc08c160ce

Tests: caseless regex locations fixed in 0.8.31.
author Maxim Dounin <mdounin@mdounin.ru>
date Thu, 24 Dec 2009 16:47:11 +0300
parents f2b8d86438ee
children 8ac1faaddd2c
comparison
equal deleted inserted replaced
118:4bf7a819358c 119:18fc08c160ce
74 74
75 like(http_get('/'), qr/X-Location: exactlyroot/, 'exactlyroot'); 75 like(http_get('/'), qr/X-Location: exactlyroot/, 'exactlyroot');
76 like(http_get('/x'), qr/X-Location: root/, 'root'); 76 like(http_get('/x'), qr/X-Location: root/, 'root');
77 like(http_get('/images/t.gif'), qr/X-Location: images/, 'images'); 77 like(http_get('/images/t.gif'), qr/X-Location: images/, 'images');
78 like(http_get('/t.gif'), qr/X-Location: regex/, 'regex'); 78 like(http_get('/t.gif'), qr/X-Location: regex/, 'regex');
79
80 {
81 local $TODO = 'broken in 0.8.25';
82
83 like(http_get('/t.GIF'), qr/X-Location: regex/, 'regex with mungled case'); 79 like(http_get('/t.GIF'), qr/X-Location: regex/, 'regex with mungled case');
84
85 }
86
87 like(http_get('/casefull/t.gif'), qr/X-Location: regex/, 'first regex wins'); 80 like(http_get('/casefull/t.gif'), qr/X-Location: regex/, 'first regex wins');
88 like(http_get('/casefull/'), qr/X-Location: casefull/, 'casefull regex'); 81 like(http_get('/casefull/'), qr/X-Location: casefull/, 'casefull regex');
89 like(http_get('/CASEFULL/'), qr/X-Location: root/, 82 like(http_get('/CASEFULL/'), qr/X-Location: root/,
90 'casefull regex do not match wrong case'); 83 'casefull regex do not match wrong case');
91 84