while executing
"http::geturl $binurl -channel $out"
invoked from within
"set token [http::geturl $binurl -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.6 FAILED
==== http-4.7 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url -progress myProgress]
set progress
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -progress myProgress"
invoked from within
"set token [http::geturl $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.7 FAILED
==== http-4.8 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url]
http::status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.8 FAILED
==== http-4.9 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url -progress myProgress]
http::code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -progress myProgress"
invoked from within
"set token [http::geturl $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.9 FAILED
==== http-4.10 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url -progress myProgress]
http::size $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url -progress myProgress"
invoked from within
"set token [http::geturl $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.10 FAILED
==== http-4.12 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url/?timeout=10 -command {#}]
http::reset $token
http::status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url/?timeout=10 -command {#}"
invoked from within
"set token [http::geturl $url/?timeout=10 -command {#}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.12 FAILED
==== http-4.13 http::Event FAILED
==== Contents of test case:
set token [http::geturl $url?timeout=30 -timeout 10 -command {#}]
http::wait $token
http::status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: connect failed
while executing
"http::geturl $url?timeout=30 -timeout 10 -command {#}"
invoked from within
"set token [http::geturl $url?timeout=30 -timeout 10 -command {#}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-4.13 FAILED
==== http-6.1 http::ProxyRequired FAILED
==== Contents of test case:
http::config -proxyhost [info hostname] -proxyport $port
set token [http::geturl $url]
http::wait $token
http::config -proxyhost {} -proxyport {}
upvar #0 $token data
set data(body)
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-6.1 FAILED
httpold.test
==== httpold-3.3 http_get FAILED
==== Contents of test case:
set token [http_get $url]
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.3 FAILED
==== httpold-3.4 http_get FAILED
==== Contents of test case:
set token [http_get $url]
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.4 FAILED
==== httpold-3.5 http_get FAILED
==== Contents of test case:
http_config -proxyfilter selfproxy
set token [http_get $url]
http_config -proxyfilter httpProxyRequired
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $phost $pport"
(procedure "http_get" line 59)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.5 FAILED
==== httpold-3.6 http_get FAILED
==== Contents of test case:
http_config -proxyfilter bogus
set token [http_get $url]
http_config -proxyfilter httpProxyRequired
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.6 FAILED
==== httpold-3.7 http_get FAILED
==== Contents of test case:
set token [http_get $url -headers {Pragma no-cache}]
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -headers {Pragma no-cache}"
invoked from within
"set token [http_get $url -headers {Pragma no-cache}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.7 FAILED
==== httpold-3.8 http_get FAILED
==== Contents of test case:
set token [http_get $url -query Name=Value&Foo=Bar]
http_data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -query Name=Value&Foo=Bar"
invoked from within
"set token [http_get $url -query Name=Value&Foo=Bar]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.8 FAILED
==== httpold-3.9 http_get FAILED
==== Contents of test case:
set token [http_get $url -validate 1]
http_code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -validate 1"
invoked from within
"set token [http_get $url -validate 1]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-3.9 FAILED
==== httpold-4.1 httpEvent FAILED
==== Contents of test case:
set token [http_get $url]
upvar #0 $token data
array set meta $data(meta)
expr ($data(totalsize) == $meta(Content-Length))
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.1 FAILED
==== httpold-4.2 httpEvent FAILED
==== Contents of test case:
set token [http_get $url]
upvar #0 $token data
array set meta $data(meta)
string compare $data(type) [string trim $meta(Content-Type)]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.2 FAILED
==== httpold-4.3 httpEvent FAILED
==== Contents of test case:
set token [http_get $url]
http_code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.3 FAILED
==== httpold-4.4 httpEvent FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http_get $url -channel $out]
close $out
set in [open $testfile]
set x [read $in]
close $in
removeFile $testfile
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -channel $out"
invoked from within
"set token [http_get $url -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.4 FAILED
==== httpold-4.5 httpEvent FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http_get $url -channel $out]
close $out
upvar #0 $token data
removeFile $testfile
expr $data(currentsize) == $data(totalsize)
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -channel $out"
invoked from within
"set token [http_get $url -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.5 FAILED
==== httpold-4.6 httpEvent FAILED
==== Contents of test case:
set testfile [makeFile "" testfile]
set out [open $testfile w]
set token [http_get $binurl -channel $out]
close $out
set in [open $testfile]
fconfigure $in -translation binary
set x [read $in]
close $in
removeFile $testfile
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $binurl -channel $out"
invoked from within
"set token [http_get $binurl -channel $out]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.6 FAILED
==== httpold-4.7 httpEvent FAILED
==== Contents of test case:
set token [http_get $url -progress myProgress]
set progress
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -progress myProgress"
invoked from within
"set token [http_get $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.7 FAILED
==== httpold-4.8 httpEvent FAILED
==== Contents of test case:
set token [http_get $url]
http_status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.8 FAILED
==== httpold-4.9 httpEvent FAILED
==== Contents of test case:
set token [http_get $url -progress myProgress]
http_code $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -progress myProgress"
invoked from within
"set token [http_get $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.9 FAILED
==== httpold-4.10 httpEvent FAILED
==== Contents of test case:
set token [http_get $url -progress myProgress]
http_size $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -progress myProgress"
invoked from within
"set token [http_get $url -progress myProgress]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.10 FAILED
==== httpold-4.11 httpEvent FAILED
==== Contents of test case:
set token [http_get $url -timeout 1 -command {#}]
http_reset $token
http_status $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -timeout 1 -command {#}"
invoked from within
"set token [http_get $url -timeout 1 -command {#}]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.11 FAILED
==== httpold-4.12 httpEvent FAILED
==== Contents of test case:
update
set x {}
after 500 {lappend x ok}
set token [http_get $url -timeout 1 -command {lappend x fail}]
vwait x
list [http_status $token] $x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url -timeout 1 -command {lappend x fail}"
invoked from within
"set token [http_get $url -timeout 1 -command {lappend x fail}]"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-4.12 FAILED
==== httpold-6.1 httpProxyRequired FAILED
==== Contents of test case:
update
http_config -proxyhost [info hostname] -proxyport $port
set token [http_get $url]
http_wait $token
http_config -proxyhost {} -proxyport {}
upvar #0 $token data
set data(body)
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket $host $port"
(procedure "http_get" line 61)
invoked from within
"http_get $url"
invoked from within
"set token [http_get $url]"
("uplevel" body line 4)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== httpold-6.1 FAILED
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
: Total 24 Passed 24 Skipped 0 Failed 0
interp.test
io.test
==== io-29.34 Tcl_Close, async flush on close, using sockets FAILED
==== Contents of test case:
variable c 0
variable x running
set l abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz
proc writelots {s l} {
for {set i 0} {$i < 2000} {incr i} {
puts $s $l
}
}
proc accept {s a p} {
variable x
fileevent $s readable [namespace code [list readit $s]]
fconfigure $s -blocking off
set x accepted
}
proc readit {s} {
variable c
variable x
set l [gets $s]
if {[eof $s]} {
close $s
set x done
} elseif {([string length $l] > 0) || ![fblocked $s]} {
incr c
}
}
set ss [socket -server [namespace code accept] 0]
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable x]
fconfigure $cs -blocking off
writelots $cs $l
close $cs
close $ss
vwait [namespace which -variable x]
set c
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] [lindex [fconfigure $ss -sockname] 2]"
invoked from within
"set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]"
("uplevel" body line 29)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== io-29.34 FAILED
==== io-29.35 Tcl_Close vs fileevent vs multiple interpreters FAILED
==== Contents of test case:
# On Mac, this test screws up sockets such that subsequent tests using port 2828
# either cause errors or panic().
catch {interp delete x}
catch {interp delete y}
interp create x
interp create y
set s [socket -server [namespace code accept] 0]
proc accept {s a p} {
puts $s hello
close $s
}
set c [socket [info hostname] [lindex [fconfigure $s -sockname] 2]]
interp share {} $c x
interp share {} $c y
close $c
x eval {
proc readit {s} {
gets $s
if {[eof $s]} {
close $s
}
}
}
y eval {
proc readit {s} {
gets $s
if {[eof $s]} {
close $s
}
}
}
x eval "fileevent $c readable \{readit $c\}"
y eval "fileevent $c readable \{readit $c\}"
y eval [list close $c]
update
close $s
interp delete x
interp delete y
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] [lindex [fconfigure $s -sockname] 2]"
invoked from within
"set c [socket [info hostname] [lindex [fconfigure $s -sockname] 2]]"
("uplevel" body line 14)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== io-29.35 FAILED
==== io-51.1 Test old socket deletion on Macintosh FAILED
==== Contents of test case:
set x 0
set result ""
proc accept {s a p} {
variable x
variable wait
fconfigure $s -blocking off
puts $s "sock[incr x]"
close $s
set wait done
}
set ss [socket -server [namespace code accept] 0]
variable wait ""
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable wait]
lappend result [gets $cs]
close $cs
set wait ""
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable wait]
lappend result [gets $cs]
close $cs
set wait ""
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable wait]
lappend result [gets $cs]
close $cs
set wait ""
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
vwait [namespace which -variable wait]
lappend result [gets $cs]
close $cs
close $ss
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] [lindex [fconfigure $ss -sockname] 2]"
invoked from within
"set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]"
("uplevel" body line 14)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== io-51.1 FAILED
==== io-54.1 Recursive channel events FAILED
==== Contents of test case:
# This test checks to see if file events are delivered during recursive
# event loops when there is buffered data on the channel.
proc accept {s a p} {
variable as
fconfigure $s -translation lf
puts $s "line 1\nline2\nline3"
flush $s
set as $s
}
proc readit {s next} {
variable x
variable result
lappend result $next
if {$next == 1} {
fileevent $s readable [namespace code [list readit $s 2]]
vwait [namespace which -variable x]
}
incr x
}
set ss [socket -server [namespace code accept] 0]
# We need to delay on some systems until the creation of the
# server socket completes.
set done 0
for {set i 0} {$i < 10} {incr i} {
if {![catch {set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]}]} {
set done 1
break
}
after 100
}
if {$done == 0} {
close $ss
error "failed to connect to server"
}
variable result {}
variable x 0
variable as
vwait [namespace which -variable as]
fconfigure $cs -translation lf
lappend result [gets $cs]
fconfigure $cs -blocking off
fileevent $cs readable [namespace code [list readit $cs 1]]
set a [after 2000 [namespace code { set x failure }]]
vwait [namespace which -variable x]
after cancel $a
close $as
close $ss
close $cs
list $result $x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: failed to connect to server
while executing
"error "failed to connect to server""
invoked from within
"if {$done == 0} {
close $ss
error "failed to connect to server"
}"
("uplevel" body line 35)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== io-54.1 FAILED
ioCmd.test
ioUtil.test
iogt.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
load.test
lrange.test
lreplace.test
lsearch.test
lset.test
lsetComp.test
macFCmd.test
main.test
misc.test
msgcat.test
namespace-old.test
namespace.test
notify.test
obj.test
opt.test
osa.test
package.test
parse.test
parseExpr.test
parseOld.test
pid.test
pkg.test
: Total 139 Passed 138 Skipped 1 Failed 0
pkgMkIndex.test
platform.test
proc-old.test
proc.test
pwd.test
reg.test
regexp.test
regexpComp.test
registry.test
rename.test
resource.test
result.test
safe.test
scan.test
security.test
set-old.test
set.test
socket.test
==== socket-2.10 close on accept, accepted socket lives FAILED
==== Contents of test case:
set done 0
set timer [after 20000 "set done timed_out"]
set ss [socket -server accept 0]
proc accept {s a p} {
global ss
close $ss
fileevent $s readable "readit $s"
fconfigure $s -trans lf
}
proc readit {s} {
global done
gets $s
close $s
set done 1
}
set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]
puts $cs hello
close $cs
vwait done
after cancel $timer
set done
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] [lindex [fconfigure $ss -sockname] 2]"
invoked from within
"set cs [socket [info hostname] [lindex [fconfigure $ss -sockname] 2]]"
("uplevel" body line 17)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== socket-2.10 FAILED
==== socket-7.4 testing socket specific options FAILED
==== Contents of test case:
set s [socket -server accept 0]
proc accept {s a p} {
global x
set x [fconfigure $s -sockname]
close $s
}
set listen [lindex [fconfigure $s -sockname] 2]
set s1 [socket [info hostname] $listen]
set timer [after 10000 "set x timed_out"]
vwait x
after cancel $timer
close $s
close $s1
set l ""
lappend l [expr {[lindex $x 2] == $listen}] [llength $x]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection refused
while executing
"socket [info hostname] $listen"
invoked from within
"set s1 [socket [info hostname] $listen]"
("uplevel" body line 9)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== socket-7.4 FAILED