# HG changeset patch # User Sergey Kandaurov # Date 1490372942 -10800 # Node ID 818fbc9d1c29cc2ed96f2fa15672c697d0a98699 # Parent 8241ebbe753d306468008500c8fa2e35ac44902f Tests: check Location EoLs in http_absolute_redirect.t. diff --git a/http_absolute_redirect.t b/http_absolute_redirect.t --- a/http_absolute_redirect.t +++ b/http_absolute_redirect.t @@ -88,15 +88,17 @@ mkdir($t->testdir() . '/dir'); my $p = port(8080); -like(get('on', '/dir'), qr!Location: http://on:$p/dir/!, 'directory'); -like(get('on', '/i/dir'), qr!Location: http://on:$p/i/dir/!, 'directory alias'); -like(get('on', '/auto'), qr!Location: http://on:$p/auto/!, 'auto'); -like(get('on', '/return301'), qr!Location: http://on:$p/redirect!, 'return'); +like(get('on', '/dir'), qr!Location: http://on:$p/dir/\x0d?$!m, 'directory'); +like(get('on', '/i/dir'), qr!Location: http://on:$p/i/dir/\x0d?$!m, + 'directory alias'); +like(get('on', '/auto'), qr!Location: http://on:$p/auto/\x0d?$!m, 'auto'); +like(get('on', '/return301'), qr!Location: http://on:$p/redirect\x0d?$!m, + 'return'); -like(get('off', '/dir'), qr!Location: /dir/!, 'off directory'); -like(get('off', '/i/dir'), qr!Location: /i/dir/!, 'off directory alias'); -like(get('off', '/auto'), qr!Location: /auto/!, 'off auto'); -like(get('off', '/return301'), qr!Location: /redirect!, 'off return'); +like(get('off', '/dir'), qr!Location: /dir/\x0d?$!m, 'off directory'); +like(get('off', '/i/dir'), qr!Location: /i/dir/\x0d?$!m, 'off directory alias'); +like(get('off', '/auto'), qr!Location: /auto/\x0d?$!m, 'off auto'); +like(get('off', '/return301'), qr!Location: /redirect\x0d?$!m, 'off return'); ###############################################################################