# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1370644730 -14400
# Node ID 719285b89d7e617be2334d77812a9da025b10fd6
# Parent  2da774b0fc7da2630ef7de9e513d5589a604ba48
Tests: upstream.t minor fixes.

diff --git a/upstream.t b/upstream.t
--- a/upstream.t
+++ b/upstream.t
@@ -64,6 +64,9 @@ EOF
 $t->run_daemon(\&http_daemon, 8082);
 $t->run();
 
+$t->waitforsocket('127.0.0.1:8081');
+$t->waitforsocket('127.0.0.1:8082');
+
 ###############################################################################
 
 is(many('/', 30), '8081: 15, 8082: 15', 'balanced');
@@ -94,7 +97,7 @@ sub many {
 	my ($uri, $count, %opts) = @_;
 	my %ports;
 
-	for (1 .. 30) {
+	for (1 .. $count) {
 		if (http_get($uri) =~ /X-Port: (\d+)/) {
 			$ports{$1} = 0 unless defined $ports{$1};
 			$ports{$1}++;
@@ -121,6 +124,8 @@ sub http_daemon {
 	)
 		or die "Can't create listening socket: $!\n";
 
+	local $SIG{PIPE} = 'IGNORE';
+
 	while (my $client = $server->accept()) {
 		$client->autoflush(1);