Posted to tcl by kbk at Sun Feb 28 21:58:35 GMT 2010view pretty

==== socket-2.1 tcp connection FAILED
==== Contents of test case:

    # $x == "ready" at this point
    set sock [socket 127.0.0.1 $listen]
    lappend x [gets $f]
    close $sock
    lappend x [gets $f]

---- 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 127.0.0.1 $listen"
    ("uplevel" body line 3)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== socket-2.1 FAILED



==== socket-2.2 tcp connection with client port specified FAILED
==== Contents of test case:

    # $x == "ready" at this point
    global port
    set sock [socket -myport $port 127.0.0.1 $listen]
    puts $sock hello
    flush $sock
    lappend x [gets $f]
    close $sock
    return $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 -myport $port 127.0.0.1 $listen"
    ("uplevel" body line 4)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== socket-2.2 FAILED



==== socket-2.7 echo server, one line FAILED
==== Contents of test case:

    set s [socket 127.0.0.1 $listen]
    fconfigure $s -buffering line -translation lf
    puts $s "hello abcdefghijklmnop"
    after 1000
    set x [gets $s]
    close $s
    list $x [gets $f]

---- 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 127.0.0.1 $listen"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ECONNREFUSED {connection refused}
==== socket-2.7 FAILED