comparison http_location.t @ 218:7f4a913d7504

Tests: skip casefull location test on caseless OSes.
author Maxim Dounin <mdounin@mdounin.ru>
date Wed, 23 May 2012 20:45:07 +0400
parents c0ae29632905
children 6a0d934950bc
comparison
equal deleted inserted replaced
217:ea574aae77cb 218:7f4a913d7504
76 like(http_get('/images/t.gif'), qr/X-Location: images/, 'images'); 76 like(http_get('/images/t.gif'), qr/X-Location: images/, 'images');
77 like(http_get('/t.gif'), qr/X-Location: regex/, 'regex'); 77 like(http_get('/t.gif'), qr/X-Location: regex/, 'regex');
78 like(http_get('/t.GIF'), qr/X-Location: regex/, 'regex with mungled case'); 78 like(http_get('/t.GIF'), qr/X-Location: regex/, 'regex with mungled case');
79 like(http_get('/casefull/t.gif'), qr/X-Location: regex/, 'first regex wins'); 79 like(http_get('/casefull/t.gif'), qr/X-Location: regex/, 'first regex wins');
80 like(http_get('/casefull/'), qr/X-Location: casefull/, 'casefull regex'); 80 like(http_get('/casefull/'), qr/X-Location: casefull/, 'casefull regex');
81 like(http_get('/CASEFULL/'), qr/X-Location: root/, 81
82 'casefull regex do not match wrong case'); 82 SKIP: {
83 skip 'caseless os', 1
84 if $^O eq 'MSWin32' or $^O eq 'darwin';
85
86 like(http_get('/CASEFULL/'), qr/X-Location: root/,
87 'casefull regex do not match wrong case');
88 }
83 89
84 ############################################################################### 90 ###############################################################################