# HG changeset patch # User Andrey Zelenkov # Date 1432635765 -10800 # Node ID dc2f8aac055372f1bfdf631cd6ff270265614573 # Parent a9569f57da9809cf486bb4787bc80c5ac9cc39b6 Tests: whitespace fixes. diff --git a/gunzip_memcached.t b/gunzip_memcached.t --- a/gunzip_memcached.t +++ b/gunzip_memcached.t @@ -82,7 +82,7 @@ if ($memhelp =~ /-U/) { my $memd = Cache::Memcached->new(servers => [ '127.0.0.1:8081' ], compress_threshold => 1, connect_timeout => 1.0); $memd->set('/', 'TEST' x 10) - or die "can't put value into memcached: $!"; + or die "can't put value into memcached: $!"; ############################################################################### diff --git a/range.t b/range.t --- a/range.t +++ b/range.t @@ -118,7 +118,7 @@ like($t1, qr/X001XXXXXX\x0d?$/m, 'multip $t1 = http_get_range('/t1.html', 'Range: bytes=0-9, -10, 100000-, 10-19'); like($t1, qr/ 206 /, 'multipart big - 206 partial reply'); like($t1, qr/Content-Type: multipart\/byteranges; boundary=/, - 'multipart big - content type'); + 'multipart big - content type'); like($t1, qr/X000XXXXXX/m, 'multipart big - content 0-9'); like($t1, qr/^X099XXXXXX\x0d?$/m, 'multipart big - content -10 aka 990-999'); like($t1, qr/X001XXXXXX\x0d?$/m, 'multipart big - content 10-19'); diff --git a/realip.t b/realip.t --- a/realip.t +++ b/realip.t @@ -71,7 +71,7 @@ plan(skip_all => 'no 127.0.0.1 on host') like(http_xff('/1', '192.0.2.1'), qr/^X-IP: 192.0.2.1/m, 'realip'); like(http_xff('/1', '10.0.0.1, 192.0.2.1'), qr/^X-IP: 192.0.2.1/m, - 'realip multi'); + 'realip multi'); like(http_xff('/1', '192.0.2.1, 10.0.1.1, 127.0.0.1'), qr/^X-IP: 127.0.0.1/m, 'realip recursive off'); like(http_xff('/2', '10.0.1.1, 192.0.2.1, 127.0.0.1'), diff --git a/scgi.t b/scgi.t --- a/scgi.t +++ b/scgi.t @@ -69,8 +69,8 @@ like(http_get_headers('/headers'), qr/SE ############################################################################### sub http_get_headers { - my ($url, %extra) = @_; - return http(<