Mercurial > hg > nginx-tests

changeset 83:6e5884419e4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: whitespace cleanup.
author Maxim Dounin <mdounin@mdounin.ru>
date Sun, 12 Apr 2009 06:46:21 +0400
parents a2fc9b9e9a2b
children e48ac6e9a390
files proxy-noclose.t proxy.t
diffstat 2 files changed, 24 insertions(+), 24 deletions(-) [+]
line wrap: on
line diff
--- a/proxy-noclose.t
+++ b/proxy-noclose.t
@@ -92,24 +92,24 @@ like(http_get('/uselen'), qr/SEE-THIS/, 
 
 sub http_noclose_daemon {
 	my $server = IO::Socket::INET->new(
-        	Proto => 'tcp',
-        	LocalAddr => '127.0.0.1:8081',
-        	Listen => 5,
-        	Reuse => 1
+		Proto => 'tcp',
+		LocalAddr => '127.0.0.1:8081',
+		Listen => 5,
+		Reuse => 1
 	)
-        	or die "Can't create listening socket: $!\n";
+		or die "Can't create listening socket: $!\n";
 
 	while (my $client = $server->accept()) {
-        	$client->autoflush(1);
+		$client->autoflush(1);
 
 		my $multi = 0;
 		my $nolen = 0;
 
-        	while (<$client>) {
+		while (<$client>) {
 			$multi = 1 if /multi/;
 			$nolen = 1 if /nolen/;
-                	last if (/^\x0d?\x0a?$/);
-        	}
+			last if (/^\x0d?\x0a?$/);
+		}
 
 		if ($nolen) {
 
@@ -121,7 +121,7 @@ TEST-OK-IF-YOU-SEE-THIS
 EOF
 		} elsif ($multi) {
 
-        		print $client <<"EOF";
+			print $client <<"EOF";
 HTTP/1.1 200 OK
 Content-Length: 32
 Connection: close
@@ -134,7 +134,7 @@ EOF
 
 		} else {
 
-        		print $client <<"EOF";
+			print $client <<"EOF";
 HTTP/1.1 200 OK
 Content-Length: 24
 Connection: close
@@ -144,8 +144,8 @@ EOF
 		}
 
 		my $select = IO::Select->new($client);
-        	$select->can_read(10);
-        	close $client;
+		$select->can_read(10);
+		close $client;
 	}
 }
 
--- a/proxy.t
+++ b/proxy.t
@@ -66,23 +66,23 @@ unlike(http_head('/'), qr/SEE-THIS/, 'pr
 
 sub http_daemon {
 	my $server = IO::Socket::INET->new(
-        	Proto => 'tcp',
+		Proto => 'tcp',
 		LocalHost => '127.0.0.1:8081',
-        	Listen => 5,
-        	Reuse => 1
+		Listen => 5,
+		Reuse => 1
 	)
-        	or die "Can't create listening socket: $!\n";
+		or die "Can't create listening socket: $!\n";
 
 	while (my $client = $server->accept()) {
-        	$client->autoflush(1);
+		$client->autoflush(1);
 
 		my $headers = '';
 		my $uri = '';
 
-        	while (<$client>) {
+		while (<$client>) {
 			$headers .= $_;
-                	last if (/^\x0d?\x0a?$/);
-        	}
+			last if (/^\x0d?\x0a?$/);
+		}
 
 		$uri = $1 if $headers =~ /^\S+\s+([^ ]+)\s+HTTP/i;
 
@@ -97,7 +97,7 @@ EOF
 
 		} elsif ($uri eq '/multi') {
 
-        		print $client <<"EOF";
+			print $client <<"EOF";
 HTTP/1.1 200 OK
 Connection: close
 
@@ -109,7 +109,7 @@ EOF
 
 		} else {
 
-        		print $client <<"EOF";
+			print $client <<"EOF";
 HTTP/1.1 404 Not Found
 Connection: close
 
@@ -117,7 +117,7 @@ Oops, '$uri' not found
 EOF
 		}
 
-        	close $client;
+		close $client;
 	}
 }