From 19090f685f5610f567baac9ded8a7495631ca63c Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Thu, 31 May 2012 09:04:03 +0000
Subject: Prevented intermittent test failure due to race condition.

---
 ChangeLog         | 5 +++++
 tests/socket.test | 1 +
 2 files changed, 6 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index ff6f2e7..69108c9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-31  Donal K. Fellows  <dkf@users.sf.net>
+
+	* tests/socket.test (socket*-13.1): Prevented intermittent test
+	failure due to race condition.
+
 2012-05-29  Donal K. Fellows  <dkf@users.sf.net>
 
 	* doc/expr.n, doc/mathop.n: [Bug 2931407]: Clarified semantics of
diff --git a/tests/socket.test b/tests/socket.test
index d88eb65..9f1cc78 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -1696,6 +1696,7 @@ test socket_$af-13.1 {Testing use of shared socket between two threads} -body {
         set i 0
         vwait x
         close $f
+	thread::wait
     }]]
     set port [thread::send $serverthread {set listen}]
     set s [socket $localhost $port]
-- 
cgit v0.12