summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authoroehhar <harald.oehlmann@elmicron.de>2014-10-17 12:28:55 (GMT)
committeroehhar <harald.oehlmann@elmicron.de>2014-10-17 12:28:55 (GMT)
commita9606871f5ddb7d6a8cd69f3fa0c41fe8b3c0396 (patch)
tree5c0a549e46d73adae7e07d43fc18b1e82183279c
parent63acce0c26f00ce8e3d4acb5840db0105f47631d (diff)
downloadtcl-a9606871f5ddb7d6a8cd69f3fa0c41fe8b3c0396.zip
tcl-a9606871f5ddb7d6a8cd69f3fa0c41fe8b3c0396.tar.gz
tcl-a9606871f5ddb7d6a8cd69f3fa0c41fe8b3c0396.tar.bz2
New tests: 14.16: -peername empty while async connect running, 14.17: -sockname
-rw-r--r--tests/socket.test22
1 files changed, 22 insertions, 0 deletions
diff --git a/tests/socket.test b/tests/socket.test
index c50730c..d6cee30 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -2321,6 +2321,28 @@ test socket-14.15 {blocking read on async socket should not trigger event handle
set x
} -result ok
+# v4 and v6 is required to prevent that the async connect does not terminate
+# before the fconfigure command. There is always an additional ip to try.
+test socket-14.16 {empty -peername while [socket -async] connecting} \
+ -constraints {socket localhost_v4 localhost_v6} \
+ -body {
+ set client [socket -async localhost [randport]]
+ fconfigure $client -peername
+ } -cleanup {
+ catch {close $client}
+ } -result {}
+
+# v4 and v6 is required to prevent that the async connect does not terminate
+# before the fconfigure command. There is always an additional ip to try.
+test socket-14.17 {empty -sockname while [socket -async] connecting} \
+ -constraints {socket localhost_v4 localhost_v6} \
+ -body {
+ set client [socket -async localhost [randport]]
+ fconfigure $client -sockname
+ } -cleanup {
+ catch {close $client}
+ } -result {}
+
set num 0
set x {localhost {socket} 127.0.0.1 {supported_inet} ::1 {supported_inet6}}