summaryrefslogtreecommitdiffstats
path: root/tests/socket.test
diff options
context:
space:
mode:
authormax <max@tclers.tk>2011-05-11 15:43:06 (GMT)
committermax <max@tclers.tk>2011-05-11 15:43:06 (GMT)
commitf457d73c6c66e6b751cd6bc28efd8a88f56daadc (patch)
treee7da087c144a91023e9b7d18e18917c0489f3e97 /tests/socket.test
parent5e902ae378db6fa9d0ef3272832d1a14bde3b44d (diff)
downloadtcl-f457d73c6c66e6b751cd6bc28efd8a88f56daadc.zip
tcl-f457d73c6c66e6b751cd6bc28efd8a88f56daadc.tar.gz
tcl-f457d73c6c66e6b751cd6bc28efd8a88f56daadc.tar.bz2
* unix/tclUnixSock.c (TcpWatchProc): No need to check for server sockets here, as the generic server code already takes care of that.
* tests/socket.test (accept): Add tests to make sure that this remains so.
Diffstat (limited to 'tests/socket.test')
-rw-r--r--tests/socket.test18
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/socket.test b/tests/socket.test
index 09b34ad..f1acedc 100644
--- a/tests/socket.test
+++ b/tests/socket.test
@@ -800,6 +800,24 @@ test socket_$af-6.1 {accept callback error} -constraints [list socket supported_
interp bgerror {} $handler
} -result {divide by zero}
+test socket_$af-6.2 {
+ readable fileevent on server socket
+} -setup {
+ set sock [socket -server dummy 0]
+} -body {
+ fileevent $sock readable dummy
+} -cleanup {
+ close $sock
+} -returnCodes 1 -result "channel is not readable"
+
+test socket_$af-6.3 {writable fileevent on server socket} -setup {
+ set sock [socket -server dummy 0]
+} -body {
+ fileevent $sock writable dummy
+} -cleanup {
+ close $sock
+} -returnCodes 1 -result "channel is not writable"
+
test socket_$af-7.1 {testing socket specific options} -setup {
file delete $path(script)
set f [open $path(script) w]