Tcl Source Code

Check-in [8f2747dc54]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:complete a comment in socket.test
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | rmax-ipv6-branch
Files: files | file ages | folders
SHA1: 8f2747dc54e887bff4773f61f3c0f263dd0f9941
User & Date: max 2011-06-22 14:21:28
Context
2011-06-22
14:32
Merge fixes for [socket -async] and other improvements to the unix socket code check-in: 8eefe5a06f user: max tags: trunk, potential incompatibility
14:21
complete a comment in socket.test Closed-Leaf check-in: 8f2747dc54 user: max tags: rmax-ipv6-branch
2011-06-16
15:21
  • doc/socket.n: Document the fact that the event loop is now needed for [socket -async]
  • uni...
check-in: 68deb29ead user: max tags: rmax-ipv6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/socket.test.

70
71
72
73
74
75
76
77

78
79
80
81
82
83
84
# Produce a random port number in the Dynamic/Private range
# from 49152 through 65535.
proc randport {} { expr {int(rand()*16383+49152)} }

# Test the latency of tcp connections over the loopback interface. Some OSes
# (e.g. NetBSD) seem to use the Nagle algorithm and delayed ACKs, so it takes
# up to 200ms for a packet sent to localhost to arrive. We're measuring this
# here, so that OSes that don't have this problem can

set server [socket -server {apply {{s a p} {set ::s1 $s}}} 0]
set s2 [socket localhost [lindex [fconfigure $server -sockname] 2]]
vwait s1; close $server
fconfigure $s1 -buffering line
fconfigure $s2 -buffering line
set t1 [clock milliseconds]
puts $s2 test1; gets $s1







|
>







70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
# Produce a random port number in the Dynamic/Private range
# from 49152 through 65535.
proc randport {} { expr {int(rand()*16383+49152)} }

# Test the latency of tcp connections over the loopback interface. Some OSes
# (e.g. NetBSD) seem to use the Nagle algorithm and delayed ACKs, so it takes
# up to 200ms for a packet sent to localhost to arrive. We're measuring this
# here, so that OSes that don't have this problem can run the tests at full
# speed.
set server [socket -server {apply {{s a p} {set ::s1 $s}}} 0]
set s2 [socket localhost [lindex [fconfigure $server -sockname] 2]]
vwait s1; close $server
fconfigure $s1 -buffering line
fconfigure $s2 -buffering line
set t1 [clock milliseconds]
puts $s2 test1; gets $s1