From 3ce19fb214dc236bda97d688852322d0a6e17eaa Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Wed, 27 May 1998 18:25:39 +0000
Subject: added test for windows bug

---
 tests/socket.test | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/tests/socket.test b/tests/socket.test
index b2719de..24f9e2a 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -532,6 +532,34 @@ test socket-2.10 {close on accept, accepted socket lives} {
     after cancel $timer
     set done
 } 1
+test socket-2.11 {detecting new data} {
+    proc accept {s a p} {
+	global sock
+	set sock $s
+    }
+
+    set s [socket -server accept 2400]
+    set sock ""
+    set s2 [socket localhost 2400]
+    vwait sock
+    puts $s2 one
+    flush $s2
+    after 500
+    fconfigure $sock -blocking 0
+    set result [gets $sock]
+    lappend result [gets $sock]
+    fconfigure $sock -blocking 1
+    puts $s2 two
+    flush $s2
+    fconfigure $sock -blocking 0
+    lappend result [gets $sock]
+    fconfigure $sock -blocking 1
+    close $s2
+    close $s
+    close $sock
+    set result
+} {one {} two}
+
 
 test socket-3.1 {socket conflict} {stdio} {
     removeFile script
-- 
cgit v0.12