Mercurial > hg > nginx-tests
changeset 925:6bb1f2ccd386
Tests: removed unused variables.
author | Andrey Zelenkov <zelenkov@nginx.com> |
---|---|
date | Fri, 13 May 2016 14:46:07 +0300 |
parents | 54680c434afa |
children | 16b5438e3da4 |
files | auth_basic.t fastcgi_body.t fastcgi_body2.t fastcgi_request_buffering.t fastcgi_request_buffering_chunked.t h2_fastcgi_request_buffering.t http_expect_100_continue.t http_resolver_cname.t proxy_upgrade.t proxy_websocket.t ssl_proxy_upgrade.t stream_error_log.t stream_udp_limit_conn.t upstream_hash.t |
diffstat | 14 files changed, 13 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- a/auth_basic.t Thu May 12 18:03:51 2016 +0300 +++ b/auth_basic.t Fri May 13 14:46:07 2016 +0300 @@ -54,8 +54,6 @@ EOF -my $d = $t->testdir(); - $t->write_file('index.html', 'SEETHIS'); $t->write_file(
--- a/fastcgi_body.t Thu May 12 18:03:51 2016 +0300 +++ b/fastcgi_body.t Fri May 13 14:46:07 2016 +0300 @@ -109,8 +109,7 @@ sub fastcgi_read_record($) { my ($buf) = @_; - - my ($n, $h, $header); + my $h; return undef unless length $$buf;
--- a/fastcgi_body2.t Thu May 12 18:03:51 2016 +0300 +++ b/fastcgi_body2.t Fri May 13 14:46:07 2016 +0300 @@ -112,10 +112,8 @@ my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $socket); - my ($body, $len); - while( $request->Accept() >= 0 ) { - read(STDIN, $body, $ENV{'CONTENT_LENGTH'}); + read(STDIN, my $body, $ENV{'CONTENT_LENGTH'}); my $len = length $body; sleep 3 if $port == 8081;
--- a/fastcgi_request_buffering.t Thu May 12 18:03:51 2016 +0300 +++ b/fastcgi_request_buffering.t Fri May 13 14:46:07 2016 +0300 @@ -155,8 +155,7 @@ sub fastcgi_read_record($) { my ($buf) = @_; - - my ($n, $h, $header); + my $h; return undef unless length $$buf;
--- a/fastcgi_request_buffering_chunked.t Thu May 12 18:03:51 2016 +0300 +++ b/fastcgi_request_buffering_chunked.t Fri May 13 14:46:07 2016 +0300 @@ -172,8 +172,7 @@ sub fastcgi_read_record($) { my ($buf) = @_; - - my ($n, $h, $header); + my $h; return undef unless length $$buf;
--- a/h2_fastcgi_request_buffering.t Thu May 12 18:03:51 2016 +0300 +++ b/h2_fastcgi_request_buffering.t Fri May 13 14:46:07 2016 +0300 @@ -154,8 +154,7 @@ sub fastcgi_read_record($) { my ($buf) = @_; - - my ($n, $h, $header); + my $h; return undef unless length $$buf;
--- a/http_expect_100_continue.t Thu May 12 18:03:51 2016 +0300 +++ b/http_expect_100_continue.t Fri May 13 14:46:07 2016 +0300 @@ -94,7 +94,7 @@ sub http_100_request { my ($url, $version, $value) = @_; $value = '100-continue' unless defined $value; - my $r = http(<<EOF); + http(<<EOF); POST $url HTTP/$version Host: localhost Expect: $value
--- a/http_resolver_cname.t Thu May 12 18:03:51 2016 +0300 +++ b/http_resolver_cname.t Fri May 13 14:46:07 2016 +0300 @@ -155,7 +155,7 @@ ############################################################################### sub reply_handler { - my ($recv_data, $port) = @_; + my ($recv_data) = @_; my (@name, @rdata); @@ -274,7 +274,7 @@ while (1) { $socket->recv($recv_data, 65536); - $data = reply_handler($recv_data, $port); + $data = reply_handler($recv_data); $socket->send($data); } }
--- a/proxy_upgrade.t Thu May 12 18:03:51 2016 +0300 +++ b/proxy_upgrade.t Fri May 13 14:46:07 2016 +0300 @@ -192,7 +192,7 @@ sub upgrade_getline { my ($s) = @_; - my ($h, $buf, $line); + my ($h, $buf); ${*$s}->{_upgrade_private} ||= { b => '', r => 0 }; $h = ${*$s}->{_upgrade_private};
--- a/proxy_websocket.t Thu May 12 18:03:51 2016 +0300 +++ b/proxy_websocket.t Fri May 13 14:46:07 2016 +0300 @@ -242,7 +242,7 @@ my $p = $poll->poll(0.5); log2c("(poll $p)"); - foreach my $reader ($poll->handles(POLLIN)) { + foreach ($poll->handles(POLLIN)) { $n = $client->sysread(my $chunk, 65536); return unless $n;
--- a/ssl_proxy_upgrade.t Thu May 12 18:03:51 2016 +0300 +++ b/ssl_proxy_upgrade.t Fri May 13 14:46:07 2016 +0300 @@ -219,7 +219,7 @@ sub upgrade_getline { my ($s) = @_; - my ($h, $buf, $line); + my ($h, $buf); ${*$s}->{_upgrade_private} ||= { b => '', r => 0 }; $h = ${*$s}->{_upgrade_private}; @@ -314,7 +314,7 @@ my $p = $poll->poll(0.5); log2c("(poll $p)"); - foreach my $reader ($poll->handles(POLLIN)) { + foreach ($poll->handles(POLLIN)) { $n = $client->sysread(my $chunk, 65536); return unless $n;
--- a/stream_error_log.t Thu May 12 18:03:51 2016 +0300 +++ b/stream_error_log.t Fri May 13 14:46:07 2016 +0300 @@ -167,7 +167,6 @@ sub get_syslog { my ($data, $peer, $port) = @_; my ($s); - my $rfd = ''; $port = 8080 unless defined $port;
--- a/stream_udp_limit_conn.t Thu May 12 18:03:51 2016 +0300 +++ b/stream_udp_limit_conn.t Fri May 13 14:46:07 2016 +0300 @@ -81,8 +81,6 @@ ############################################################################### -my $str = '.'; - # same and other zones my $s = dgram('127.0.0.1:8081');
--- a/upstream_hash.t Thu May 12 18:03:51 2016 +0300 +++ b/upstream_hash.t Fri May 13 14:46:07 2016 +0300 @@ -218,7 +218,7 @@ my ($uri, $count) = @_; my %ports; - for my $i (1 .. $count) { + for (1 .. $count) { if (http_get($uri) =~ /X-Port: (\d+)/) { $ports{$1} = 0 unless defined $ports{$1}; $ports{$1}++;