diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-22 13:26:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-22 13:26:31 (GMT) |
| commit | a0af7d5841f6a8fbf03f748e9e1a5827a29d6a6a (patch) | |
| tree | 0399533a04774cd225f1e61c826c6b04e0981618 /tests/httpd | |
| parent | 9a0f3fc06f63ce3a77d1257877bc079fa5d33d99 (diff) | |
| parent | f57dacd4955b9dd474cfd9d4e4d55cac22990f6c (diff) | |
| download | tcl-unwanted.zip tcl-unwanted.tar.gz tcl-unwanted.tar.bz2 | |
merge trunkunwanted
Diffstat (limited to 'tests/httpd')
| -rw-r--r-- | tests/httpd | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/httpd b/tests/httpd index 40e10df..f15d71b 100644 --- a/tests/httpd +++ b/tests/httpd @@ -11,7 +11,12 @@ #set httpLog 1 proc httpd_init {{port 8015}} { - socket -server httpdAccept $port + set s [socket -server httpdAccept $port] + # Save the actual port number in a global variable. + # This is important when we're called with port 0 + # for picking an unused port at random. + set ::port [lindex [chan configure $s -sockname] 2] + return $s } proc httpd_log {args} { global httpLog |