Changeset 814 for trunk/api/perl/t/100_flush_bug.t

Timestamp:

05/21/09 04:59:35 (6 months ago)

Author:

ask

Message:

Fix occasional failure in the 100_flush_bug.t test

Files:

• trunk/api/perl/t/100_flush_bug.t (modified) (3 diffs)

trunk/api/perl/t/100_flush_bug.t

@@ -6 +6 @@
 use IO::Socket::INET;
 
-my $testaddr = "127.0.0.1:11311";
+my $port = 11311;
+my $testaddr = "127.0.0.1:$port";
 my $sock = IO::Socket::INET->new(
     LocalAddr => $testaddr,
@@ -31 +32 @@
 close $sock;
 
-
 my $pid = fork;
 die "Cannot fork because: '$!'" unless defined $pid;
 unless ($pid) {
+    
     my $sock = IO::Socket::INET->new(
-        LocalAddr => $testaddr,
-        Proto     => 'tcp',
-        ReusAddr  => 1,
-        Listen    => 1,
+        LocalAddr  => $testaddr,
+        Proto      => 'tcp',
+        ReuseAddr  => 1,
+        Listen     => 1,
     ) or die "cannot open $testaddr: $!";
     my $csock = $sock->accept();
@@ -51 +52 @@
 }
 
+# give the forked server a chance to startup
+sleep 1;
+
 my $memd = Cache::Memcached->new({ servers   => [ $testaddr ] });