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 +++ b/auth_basic.t @@ -54,8 +54,6 @@ http { EOF -my $d = $t->testdir(); - $t->write_file('index.html', 'SEETHIS'); $t->write_file(
--- a/fastcgi_body.t +++ b/fastcgi_body.t @@ -109,8 +109,7 @@ EOF sub fastcgi_read_record($) { my ($buf) = @_; - - my ($n, $h, $header); + my $h; return undef unless length $$buf;
--- a/fastcgi_body2.t +++ b/fastcgi_body2.t @@ -112,10 +112,8 @@ sub fastcgi_daemon { 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 +++ b/fastcgi_request_buffering.t @@ -155,8 +155,7 @@ sub http_get_body { sub fastcgi_read_record($) { my ($buf) = @_; - - my ($n, $h, $header); + my $h; return undef unless length $$buf;
--- a/fastcgi_request_buffering_chunked.t +++ b/fastcgi_request_buffering_chunked.t @@ -172,8 +172,7 @@ sub http_get_body { sub fastcgi_read_record($) { my ($buf) = @_; - - my ($n, $h, $header); + my $h; return undef unless length $$buf;
--- a/h2_fastcgi_request_buffering.t +++ b/h2_fastcgi_request_buffering.t @@ -154,8 +154,7 @@ is($f->{http_end}(), 200, 'cl split - re sub fastcgi_read_record($) { my ($buf) = @_; - - my ($n, $h, $header); + my $h; return undef unless length $$buf;
--- a/http_expect_100_continue.t +++ b/http_expect_100_continue.t @@ -94,7 +94,7 @@ like(http_100_request('/', '1.1', 'token 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 +++ b/http_resolver_cname.t @@ -155,7 +155,7 @@ EOF ############################################################################### sub reply_handler { - my ($recv_data, $port) = @_; + my ($recv_data) = @_; my (@name, @rdata); @@ -274,7 +274,7 @@ sub dns_daemon { 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 +++ b/proxy_upgrade.t @@ -192,7 +192,7 @@ sub upgrade_connect { 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 +++ b/proxy_websocket.t @@ -242,7 +242,7 @@ sub websocket_handle_client { 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 +++ b/ssl_proxy_upgrade.t @@ -219,7 +219,7 @@ sub upgrade_connect { 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 @@ sub upgrade_handle_client { 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 +++ b/stream_error_log.t @@ -167,7 +167,6 @@ sub levels { sub get_syslog { my ($data, $peer, $port) = @_; my ($s); - my $rfd = ''; $port = 8080 unless defined $port;