# HG changeset patch # User Maxim Dounin # Date 1337791507 -14400 # Node ID 7f4a913d7504c73b482521c566dbf8eea8bffeba # Parent ea574aae77cb53f88be34c6b7db159a22417c1b6 Tests: skip casefull location test on caseless OSes. diff --git a/http_location.t b/http_location.t --- a/http_location.t +++ b/http_location.t @@ -78,7 +78,13 @@ like(http_get('/t.gif'), qr/X-Location: like(http_get('/t.GIF'), qr/X-Location: regex/, 'regex with mungled case'); like(http_get('/casefull/t.gif'), qr/X-Location: regex/, 'first regex wins'); like(http_get('/casefull/'), qr/X-Location: casefull/, 'casefull regex'); -like(http_get('/CASEFULL/'), qr/X-Location: root/, - 'casefull regex do not match wrong case'); + +SKIP: { + skip 'caseless os', 1 + if $^O eq 'MSWin32' or $^O eq 'darwin'; + + like(http_get('/CASEFULL/'), qr/X-Location: root/, + 'casefull regex do not match wrong case'); +} ###############################################################################