Mercurial > hg > nginx-tests

changeset 937:b1fa8e0cc27b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: whitespaces fix.
author Andrey Zelenkov <zelenkov@nginx.com>
date Tue, 24 May 2016 16:09:57 +0300
parents e81cacf44cac
children d3ff66fc7f5c
files http_resolver.t http_resolver_aaaa.t http_resolver_cname.t lib/Test/Nginx/HTTP2.pm mail_resolver.t proxy_next_upstream_tries.t stream_limit_rate.t
diffstat 7 files changed, 40 insertions(+), 40 deletions(-) [+]
line wrap: on
line diff
--- a/http_resolver.t
+++ b/http_resolver.t
@@ -323,7 +323,7 @@ sub reply_handler {
 	use constant CNAME	=> 5;
 	use constant DNAME	=> 39;
 
-	use constant IN 	=> 1;
+	use constant IN		=> 1;
 
 	# default values
 
@@ -412,7 +412,7 @@ sub reply_handler {
 	} elsif ($name eq 'cname.example.net') {
 		$state->{cnamecnt}++;
 		if ($state->{cnamecnt} > 2) {
-		        $rcode = SERVFAIL;
+			$rcode = SERVFAIL;
 		}
 		push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl,
 			8, 5, 'alias', 0xc012);
@@ -436,7 +436,7 @@ sub reply_handler {
 		push @rdata, pack("n3N nCa18n", 0xc00c, CNAME, IN, 1,
 			21, 18, 'cname_a_ttl2_alias', 0xc019);
 		if (++$state->{cttl2cnt} >= 2) {
-		        $rcode = SERVFAIL;
+			$rcode = SERVFAIL;
 		}
 		push @rdata, pack('n3N nC4', 0xc036, A, IN, $ttl,
 			4, split(/\./, '127.0.0.1'));
@@ -521,9 +521,9 @@ sub dns_daemon {
 
 	my ($data, $recv_data);
 	my $socket = IO::Socket::INET->new(
-		LocalAddr    => '127.0.0.1',
-		LocalPort    => $port,
-		Proto        => 'udp',
+		LocalAddr => '127.0.0.1',
+		LocalPort => $port,
+		Proto => 'udp',
 	)
 		or die "Can't create listening socket: $!\n";
 
@@ -547,16 +547,16 @@ sub dns_daemon {
 	# track number of relevant queries
 
 	my %state = (
-		cnamecnt     => 0,
-		twocnt       => 0,
-		ttlcnt       => 0,
-		ttl0cnt      => 0,
-		cttlcnt      => 0,
-		cttl2cnt     => 0,
-		manycnt      => 0,
-		casecnt      => 0,
-		idcnt        => 0,
-		fecnt        => 0,
+		cnamecnt	=> 0,
+		twocnt		=> 0,
+		ttlcnt		=> 0,
+		ttl0cnt		=> 0,
+		cttlcnt		=> 0,
+		cttl2cnt	=> 0,
+		manycnt		=> 0,
+		casecnt		=> 0,
+		idcnt		=> 0,
+		fecnt		=> 0,
 	);
 
 	# signal we are ready
--- a/http_resolver_aaaa.t
+++ b/http_resolver_aaaa.t
@@ -257,7 +257,7 @@ sub reply_handler {
 	use constant AAAA	=> 28;
 	use constant DNAME	=> 39;
 
-	use constant IN 	=> 1;
+	use constant IN		=> 1;
 
 	# default values
 
@@ -313,7 +313,7 @@ sub reply_handler {
 	} elsif ($name eq 'cname.example.net') {
 		$state->{cnamecnt}++;
 		if ($state->{cnamecnt} > 2) {
-		        $rcode = SERVFAIL;
+			$rcode = SERVFAIL;
 		}
 		push @rdata, pack("n3N nCa5n", 0xc00c, CNAME, IN, $ttl,
 			8, 5, 'alias', 0xc012);
@@ -597,18 +597,18 @@ sub dns_daemon {
 
 	my ($data, $recv_data);
 	my $socket = IO::Socket::INET->new(
-		LocalAddr    => '127.0.0.1',
-		LocalPort    => $port,
-		Proto        => 'udp',
+		LocalAddr => '127.0.0.1',
+		LocalPort => $port,
+		Proto => 'udp',
 	)
 		or die "Can't create listening socket: $!\n";
 
 	# track number of relevant queries
 
 	my %state = (
-		cnamecnt     => 0,
-		twocnt       => 0,
-		manycnt      => 0,
+		cnamecnt	=> 0,
+		twocnt		=> 0,
+		manycnt		=> 0,
 	);
 
 	# signal we are ready
--- a/http_resolver_cname.t
+++ b/http_resolver_cname.t
@@ -164,7 +164,7 @@ sub reply_handler {
 	use constant A		=> 1;
 	use constant CNAME	=> 5;
 
-	use constant IN 	=> 1;
+	use constant IN		=> 1;
 
 	# default values
 
@@ -261,9 +261,9 @@ sub dns_daemon {
 
 	my ($data, $recv_data);
 	my $socket = IO::Socket::INET->new(
-		LocalAddr    => '127.0.0.1',
-		LocalPort    => $port,
-		Proto        => 'udp',
+		LocalAddr => '127.0.0.1',
+		LocalPort => $port,
+		Proto => 'udp',
 	)
 		or die "Can't create listening socket: $!\n";
 
--- a/lib/Test/Nginx/HTTP2.pm
+++ b/lib/Test/Nginx/HTTP2.pm
@@ -535,8 +535,8 @@ sub static_table {
 				''		],
 	[ 'age',		''		],
 	[ 'allow',		''		],
-	[ 'authorization', 	''		],
-	[ 'cache-control', 	''		],
+	[ 'authorization',	''		],
+	[ 'cache-control',	''		],
 	[ 'content-disposition',
 				''		],
 	[ 'content-encoding',	''		],
--- a/mail_resolver.t
+++ b/mail_resolver.t
@@ -280,9 +280,9 @@ sub reply_handler {
 	use constant A		=> 1;
 	use constant CNAME	=> 5;
 	use constant PTR	=> 12;
-	use constant DNAME      => 39;
+	use constant DNAME	=> 39;
 
-	use constant IN 	=> 1;
+	use constant IN		=> 1;
 
 	# default values
 
@@ -378,9 +378,9 @@ sub dns_daemon {
 
 	my ($data, $recv_data);
 	my $socket = IO::Socket::INET->new(
-		LocalAddr    => '127.0.0.1',
-		LocalPort    => $port,
-		Proto        => 'udp',
+		LocalAddr => '127.0.0.1',
+		LocalPort => $port,
+		Proto => 'udp',
 	)
 		or die "Can't create listening socket: $!\n";
 
--- a/proxy_next_upstream_tries.t
+++ b/proxy_next_upstream_tries.t
@@ -195,7 +195,7 @@ sub reply_handler {
 
 	use constant NOERROR	=> 0;
 	use constant A		=> 1;
-	use constant IN 	=> 1;
+	use constant IN		=> 1;
 
 	# default values
 
@@ -237,9 +237,9 @@ sub dns_daemon {
 
 	my ($data, $recv_data);
 	my $socket = IO::Socket::INET->new(
-		LocalAddr    => '127.0.0.1',
-		LocalPort    => $port,
-		Proto        => 'udp',
+		LocalAddr => '127.0.0.1',
+		LocalPort => $port,
+		Proto => 'udp',
 	)
 		or die "Can't create listening socket: $!\n";
 
--- a/stream_limit_rate.t
+++ b/stream_limit_rate.t
@@ -133,7 +133,7 @@ is($r{'data'}, $str . 'close', 'upload -
 ###############################################################################
 
 sub response {
- 	my ($data, %extra) = @_;
+	my ($data, %extra) = @_;
 
 	my $s = stream($extra{peer});
 	$s->write($data);