[Tcl-bugs] [ tcl-Bugs-578164 ] socket-2.4 fails on WinNT

[<no...@so...>]

Bugs item #578164, was opened at 2002-07-06 13:59
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=578164&group_id=10894

Category: 26. Channel Types
Group: 8.4b1
Status: Open
Resolution: None
Priority: 5
Submitted By: Kevin B KENNY (kennykb)
Assigned to: Andreas Kupries (andreas_kupries)
Summary: socket-2.4 fails on WinNT

Initial Comment:
In the current HEAD, socket-2.4 appears not to be
working owing to some sort of synchronization problem
within the test case.


==== socket-2.4 tcp connection with server interface specified FAILED
==== Contents of test case:

    removeFile script
    set f [open $path(script) w]
    puts $f {
        set timer [after 2000 "set x done"]
        set f [socket -server accept -myaddr [info hostname] 0]
        proc accept {file addr port} {
            global x
            puts "[gets $file]"
            close $file
            set x done
        }
        puts ready
        puts [lindex [fconfigure $f -sockname] 2]
        vwait x
        after cancel $timer
        close $f
    }
    close $f
    set f [open "|[list $::tcltest::tcltest $path(script)]" r]
    gets $f x
    gets $f listen
    if {[catch {socket [info hostname] $listen} sock]} {
        set x $sock
    } else {
        puts $sock hello
        flush $sock
        lappend x [gets $f]
        close $sock
    }
    close $f
    set x

---- Result was:
couldn't open socket: connection refused
---- Result should have been (exact matching):
ready hello
==== socket-2.4 FAILED

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=578164&group_id=10894