Tcl Source Code

Starting from check-in f51188e3058a46f0 (core-8-branch) test zlib-9.3 hangs on
NetBSD 8.0, both i386 and amd64. Quick inspection shows that it happens when
the script executes the [update] command.
The test was copied and slightly modified to catch the hanging command in
a file named "sock.tcl". Here is an interactive session:

emiliano@cabernet:~/src/tcl/unix$ echo "source sock.tcl" | make shell 
Warning: tclStubInit.c may be out of date.
Developers may want to run "make genstubs" to regenerate.
This warning can be safely ignored, do not report as a bug!
LD_LIBRARY_PATH=`pwd`:  TCLLIBPATH="/home/emiliano/src/tcl/unix/pkgs"  TCL_LIBRARY="/home/emiliano/src/tcl/library" ./tclsh 
berfore update
entering server callback
leaving server callback
^C
-- hit ctrl-c after 10 seconds --
emiliano@cabernet:~/src/tcl/unix$ cat sock.tcl 
    package require tcltest
    set srv [socket -myaddr localhost -server {apply {{c a p} {
        puts "entering server callback"
        chan configure $c -translation binary -buffering none -blocking 0
        puts -nonewline $c [string repeat a 81920]
        close $c
        puts "leaving server callback"
    }}} 0]
    set file [tcltest::makeFile {} test.gz]
    lassign [chan configure $srv -sockname] addr name port
    set sin [socket localhost $port]
    chan configure $sin -translation binary
    puts "berfore update"
    update
    puts "after update"
    set fout [open $file wb]
    after 1000 {set ::total timeout}
    puts here
    fcopy $sin $fout -command {apply {{c {e {}}} {
        set ::total [expr {$e eq {} ? $c : $e}]
    }}}
    vwait ::total
    after cancel {set ::total timeout}
    close $sin; close $fout
    puts [list read $::total size [file size $file]]
    close $srv
    tcltest::removeFile $file
emiliano@cabernet:~/src/tcl/unix$

Besides the hang, I failed to see why this test is in zlib,test since there's nothing related to compression on this code. I think it should be moved to socket.test