# HG changeset patch # User Valentin Bartenev # Date 1363786021 -14400 # Node ID 9cd1a8dd47fcd1d30f59cac5cf40cba07cd31573 # Parent b350a2cdbf585cb19a1a7c211605abc9daa46fb7 Tests: eliminate race in memcached_fake.t startup. diff --git a/memcached_fake.t b/memcached_fake.t --- a/memcached_fake.t +++ b/memcached_fake.t @@ -57,6 +57,9 @@ EOF $t->run_daemon(\&memcached_fake_daemon); $t->run(); +$t->waitforsocket('127.0.0.1:8081') + or die "Can't start fake memcached"; + ############################################################################### like(http_get('/'), qr/SEE-THIS/, 'memcached split trailer'); @@ -76,6 +79,8 @@ sub memcached_fake_daemon { ) or die "Can't create listening socket: $!\n"; + local $SIG{PIPE} = 'IGNORE'; + while (my $client = $server->accept()) { $client->autoflush(1);