potential race

git-svn-id: http://code.sixapart.com/svn/memcached/trunk/server@385 b0b603af-a30f-0410-a34e-baf09ae79d0b

1 files changed, 14 insertions, 0 deletions

diff --git a/t/expirations.t b/t/expirations.t
index 5ce6641..fd7561e 100755
--- a/t/expirations.t
+++ b/t/expirations.t
@@ -10,6 +10,20 @@ my $server = new_memcached();
 my $sock = $server->sock;
 my $expire;
 
+sub wait_for_early_second {
+    use Time::HiRes ();
+    my $tsh = Time::HiRes::time();
+    my $ts = int($tsh);  # in case time was overloaded to be hires.
+    return if ($tsh - $ts) < 0.5;
+    while (1) {
+        my $t = int(time());
+        return if $t != $ts;
+        select undef, undef, undef, 0.10;  # 1/10th of a second sleeps until time changes.
+    }
+}
+
+wait_for_early_second();
+
 print $sock "set foo 0 1 6\r\nfooval\r\n";
 is(scalar <$sock>, "STORED\r\n", "stored foo");