TCL_LIBRARY=`echo /private/tmp/tcl-tk-20220101-88122-tvcurt/tcl8.6.12/library` DYLD_LIBRARY_PATH="/Users/mpcjanssen/Src/home:/opt/homebrew/opt/tcl-tk/lib:" PATH="/Users/mpcjanssen/Src/home:/opt/homebrew/opt/tcl-tk/lib:/Users/mpcjanssen/.sdkman/candidates/kscript/current/bin:/Users/mpcjanssen/.sdkman/candidates/kotlin/current/bin:/Users/mpcjanssen/.opam/default/bin:/opt/homebrew/opt/tcl-tk/bin:/opt/homebrew/opt/openjdk@11/bin:/Users/mpcjanssen/.asdf/shims:/Users/mpcjanssen/.asdf/bin:/opt/homebrew/bin:/opt/homebrew/sbin:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin:/opt/X11/bin" TCLLIBPATH="/Users/mpcjanssen/Src/home" /opt/homebrew/opt/tcl-tk/bin/tclsh8.6 `echo ./tests/all.tcl` \ -load "package ifneeded sock 0.42 \ [list load `echo libsock0.42.dylib` sock]" PID: 54815 Tests running in interp: /opt/homebrew/opt/tcl-tk/bin/tclsh8.6 Tests running with pwd: /Users/mpcjanssen/Src/home Tests running in working dir: /Users/mpcjanssen/Src/home/tests Only running tests that match: * Skipping test files that match: l.*.test Only sourcing test files that match: *.test Tests began at Fri Jun 24 23:14:53 CEST 2022 sock.test ==== sock-1.6 getaddrinfo empty host and port FAILED ==== Contents of test case: expr {[llength [sock::getaddrinfo "" ""]] != 0} ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: cannot resolve hostname "" or service "": nodename nor servname provided, or not known while executing "sock::getaddrinfo "" """ ("uplevel" body line 2) invoked from within "uplevel 1 $script" ---- errorCode: NONE ==== sock-1.6 FAILED ==== sock-2.2.1 Data synchronous transfer INET/STREAM FAILED ==== Contents of test case: set pa 2001 set pb 2010 lappend result [lassign [sock::getaddrinfo -family $f -type $t "" $pa] a] set sa [sock::socket $a] sock::setsockopt $sa [SOL SOCKET] [SO REUSEADDR] sock::bind $sa $a sock::listen $sa lappend result [lassign [sock::getaddrinfo -family $f -type $t "" $pb] b] set sb [sock::socket $b] sock::setsockopt $sb [SOL SOCKET] [SO REUSEADDR] sock::bind $sb $b sock::connect $sb $a set sc [sock::accept $sa host port] sock::sendto $sb test1 lappend result [sock::recvfrom $sc t 100] lappend result $t sock::sendto $sc test2 lappend result [sock::recvfrom $sb t 100] lappend result $t sock::close $sa sock::close $sb sock::close $sc set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: cannot connect: address already in use while executing "sock::connect $sb $a" ("uplevel" body line 15) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EADDRINUSE {address already in use} ==== sock-2.2.1 FAILED ==== sock-2.30.1 Data synchronous transfer INET6/STREAM FAILED ==== Contents of test case: set pa 2001 set pb 2010 lappend result [lassign [sock::getaddrinfo -family $f -type $t "" $pa] a] set sa [sock::socket $a] sock::setsockopt $sa [SOL SOCKET] [SO REUSEADDR] sock::bind $sa $a sock::listen $sa lappend result [lassign [sock::getaddrinfo -family $f -type $t "" $pb] b] set sb [sock::socket $b] sock::setsockopt $sb [SOL SOCKET] [SO REUSEADDR] sock::bind $sb $b sock::connect $sb $a set sc [sock::accept $sa host port] sock::sendto $sb test1 lappend result [sock::recvfrom $sc t 100] lappend result $t sock::sendto $sc test2 lappend result [sock::recvfrom $sb t 100] lappend result $t sock::close $sa sock::close $sb sock::close $sc set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: cannot connect: address already in use while executing "sock::connect $sb $a" ("uplevel" body line 15) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EADDRINUSE {address already in use} ==== sock-2.30.1 FAILED ==== sock-5.2.2.17 getsockopt SO_DOMAIN, SO_TYPE, SO_PROTOCOL FAILED ==== Contents of test case: set ai [sock::getaddrinfo -family $f -type $t -protocol $p localhost 0] lassign $ai a set s [sock::socket $a] # lappend result $s lappend result [sock::getsockopt $s 1 [SO DOMAIN]] lappend result [sock::getsockopt $s 1 [SO TYPE]] lappend result [sock::getsockopt $s 1 [SO PROTOCOL]] set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: key "DOMAIN" not known in dictionary while executing "SO DOMAIN" ("uplevel" body line 6) invoked from within "uplevel 1 $script" ---- errorCode: TCL LOOKUP DICT DOMAIN ---- Test cleanup failed: can't unset "result": no such variable ---- errorInfo(cleanup): can't unset "result": no such variable while executing "unset result" ("uplevel" body line 2) invoked from within "uplevel 1 $cleanup" ---- errorCode(cleanup): TCL LOOKUP VARNAME result ==== sock-5.2.2.17 FAILED ==== sock-6.2.2.17 setsockopt SO_REUSEADDR, SO_REUSEPORT, SO_KEEPALIVE, TCP_NODELAY, UDP_CORK FAILED ==== Contents of test case: set ai [sock::getaddrinfo -family $f -type $t -protocol $p localhost 0] lassign $ai a set s [sock::socket $a] foreach {level map opt} { SOCKET SO REUSEADDR SOCKET SO REUSEPORT SOCKET SO KEEPALIVE TCP TCP NODELAY UDP UDP CORK } { set level [SOL $level] set opt [$map $opt] if {$level == [SOL SOCKET] || $level == $p} { lappend result [sock::getsockopt $s $level $opt] sock::setsockopt $s $level $opt lappend result [sock::getsockopt $s $level $opt] } } set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: key "TCP" not known in dictionary while executing "SOL $level" ("foreach" body line 2) invoked from within "foreach {level map opt} { SOCKET SO REUSEADDR SOCKET SO REUSEPORT SOCKET SO KEEPALIVE TCP TCP NODELAY UDP UDP CORK } {..." ("uplevel" body line 6) invoked from within "uplevel 1 $script" ---- errorCode: TCL LOOKUP DICT TCP ==== sock-6.2.2.17 FAILED ==== sock-5.2.1.6 getsockopt SO_DOMAIN, SO_TYPE, SO_PROTOCOL FAILED ==== Contents of test case: set ai [sock::getaddrinfo -family $f -type $t -protocol $p localhost 0] lassign $ai a set s [sock::socket $a] # lappend result $s lappend result [sock::getsockopt $s 1 [SO DOMAIN]] lappend result [sock::getsockopt $s 1 [SO TYPE]] lappend result [sock::getsockopt $s 1 [SO PROTOCOL]] set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: key "DOMAIN" not known in dictionary while executing "SO DOMAIN" ("uplevel" body line 6) invoked from within "uplevel 1 $script" ---- errorCode: TCL LOOKUP DICT DOMAIN ---- Test cleanup failed: can't unset "result": no such variable ---- errorInfo(cleanup): can't unset "result": no such variable while executing "unset result" ("uplevel" body line 2) invoked from within "uplevel 1 $cleanup" ---- errorCode(cleanup): TCL LOOKUP VARNAME result ==== sock-5.2.1.6 FAILED ==== sock-6.2.1.6 setsockopt SO_REUSEADDR, SO_REUSEPORT, SO_KEEPALIVE, TCP_NODELAY, UDP_CORK FAILED ==== Contents of test case: set ai [sock::getaddrinfo -family $f -type $t -protocol $p localhost 0] lassign $ai a set s [sock::socket $a] foreach {level map opt} { SOCKET SO REUSEADDR SOCKET SO REUSEPORT SOCKET SO KEEPALIVE TCP TCP NODELAY UDP UDP CORK } { set level [SOL $level] set opt [$map $opt] if {$level == [SOL SOCKET] || $level == $p} { lappend result [sock::getsockopt $s $level $opt] sock::setsockopt $s $level $opt lappend result [sock::getsockopt $s $level $opt] } } set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: key "TCP" not known in dictionary while executing "SOL $level" ("foreach" body line 2) invoked from within "foreach {level map opt} { SOCKET SO REUSEADDR SOCKET SO REUSEPORT SOCKET SO KEEPALIVE TCP TCP NODELAY UDP UDP CORK } {..." ("uplevel" body line 6) invoked from within "uplevel 1 $script" ---- errorCode: TCL LOOKUP DICT TCP ==== sock-6.2.1.6 FAILED ==== sock-5.30.2.17 getsockopt SO_DOMAIN, SO_TYPE, SO_PROTOCOL FAILED ==== Contents of test case: set ai [sock::getaddrinfo -family $f -type $t -protocol $p localhost 0] lassign $ai a set s [sock::socket $a] # lappend result $s lappend result [sock::getsockopt $s 1 [SO DOMAIN]] lappend result [sock::getsockopt $s 1 [SO TYPE]] lappend result [sock::getsockopt $s 1 [SO PROTOCOL]] set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: key "DOMAIN" not known in dictionary while executing "SO DOMAIN" ("uplevel" body line 6) invoked from within "uplevel 1 $script" ---- errorCode: TCL LOOKUP DICT DOMAIN ---- Test cleanup failed: can't unset "result": no such variable ---- errorInfo(cleanup): can't unset "result": no such variable while executing "unset result" ("uplevel" body line 2) invoked from within "uplevel 1 $cleanup" ---- errorCode(cleanup): TCL LOOKUP VARNAME result ==== sock-5.30.2.17 FAILED ==== sock-6.30.2.17 setsockopt SO_REUSEADDR, SO_REUSEPORT, SO_KEEPALIVE, TCP_NODELAY, UDP_CORK FAILED ==== Contents of test case: set ai [sock::getaddrinfo -family $f -type $t -protocol $p localhost 0] lassign $ai a set s [sock::socket $a] foreach {level map opt} { SOCKET SO REUSEADDR SOCKET SO REUSEPORT SOCKET SO KEEPALIVE TCP TCP NODELAY UDP UDP CORK } { set level [SOL $level] set opt [$map $opt] if {$level == [SOL SOCKET] || $level == $p} { lappend result [sock::getsockopt $s $level $opt] sock::setsockopt $s $level $opt lappend result [sock::getsockopt $s $level $opt] } } set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: key "TCP" not known in dictionary while executing "SOL $level" ("foreach" body line 2) invoked from within "foreach {level map opt} { SOCKET SO REUSEADDR SOCKET SO REUSEPORT SOCKET SO KEEPALIVE TCP TCP NODELAY UDP UDP CORK } {..." ("uplevel" body line 6) invoked from within "uplevel 1 $script" ---- errorCode: TCL LOOKUP DICT TCP ==== sock-6.30.2.17 FAILED ==== sock-5.30.1.6 getsockopt SO_DOMAIN, SO_TYPE, SO_PROTOCOL FAILED ==== Contents of test case: set ai [sock::getaddrinfo -family $f -type $t -protocol $p localhost 0] lassign $ai a set s [sock::socket $a] # lappend result $s lappend result [sock::getsockopt $s 1 [SO DOMAIN]] lappend result [sock::getsockopt $s 1 [SO TYPE]] lappend result [sock::getsockopt $s 1 [SO PROTOCOL]] set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: key "DOMAIN" not known in dictionary while executing "SO DOMAIN" ("uplevel" body line 6) invoked from within "uplevel 1 $script" ---- errorCode: TCL LOOKUP DICT DOMAIN ---- Test cleanup failed: can't unset "result": no such variable ---- errorInfo(cleanup): can't unset "result": no such variable while executing "unset result" ("uplevel" body line 2) invoked from within "uplevel 1 $cleanup" ---- errorCode(cleanup): TCL LOOKUP VARNAME result ==== sock-5.30.1.6 FAILED ==== sock-6.30.1.6 setsockopt SO_REUSEADDR, SO_REUSEPORT, SO_KEEPALIVE, TCP_NODELAY, UDP_CORK FAILED ==== Contents of test case: set ai [sock::getaddrinfo -family $f -type $t -protocol $p localhost 0] lassign $ai a set s [sock::socket $a] foreach {level map opt} { SOCKET SO REUSEADDR SOCKET SO REUSEPORT SOCKET SO KEEPALIVE TCP TCP NODELAY UDP UDP CORK } { set level [SOL $level] set opt [$map $opt] if {$level == [SOL SOCKET] || $level == $p} { lappend result [sock::getsockopt $s $level $opt] sock::setsockopt $s $level $opt lappend result [sock::getsockopt $s $level $opt] } } set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: key "TCP" not known in dictionary while executing "SOL $level" ("foreach" body line 2) invoked from within "foreach {level map opt} { SOCKET SO REUSEADDR SOCKET SO REUSEPORT SOCKET SO KEEPALIVE TCP TCP NODELAY UDP UDP CORK } {..." ("uplevel" body line 6) invoked from within "uplevel 1 $script" ---- errorCode: TCL LOOKUP DICT TCP ==== sock-6.30.1.6 FAILED socket.test bad mode list: is empty while executing "chan create {} [srvchan new $socks]" (procedure "serversocket" line 42) invoked from within "serversocket {apply {{s a p} {set ::s1 $s}}} {} 0 0 0" invoked from within "socket -server {apply {{s a p} {set ::s1 $s}}} 0" (file "/Users/mpcjanssen/Src/home/tests/socket.test" line 107) invoked from within "source $file" Tests ended at Fri Jun 24 23:14:53 CEST 2022 all.tcl: Total 40 Passed 29 Skipped 0 Failed 11 Sourced 0 Test Files.