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