---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 [lindex [fconfigure $server -sockname] 2]"
invoked from within
"set s [socket 127.0.0.1 [lindex [fconfigure $server -sockname] 2]]"
("uplevel" body line 7)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== io-57.1 FAILED
==== io-57.2 buffered data and file events, read FAILED
==== Contents of test case:
proc accept {sock args} {
variable s2
set s2 $sock
}
set server [socket -server [namespace code accept] 0]
set s [socket 127.0.0.1 [lindex [fconfigure $server -sockname] 2]]
variable s2
vwait [namespace which -variable s2]
update
fileevent $s2 readable [namespace code {lappend result readable}]
puts -nonewline $s "1234567890"
flush $s
variable result [read $s2 1]
after 1000 [namespace code {lappend result timer}]
vwait [namespace which -variable result]
lappend result [read $s2 9]
vwait [namespace which -variable result]
close $s
close $s2
close $server
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 [lindex [fconfigure $server -sockname] 2]"
invoked from within
"set s [socket 127.0.0.1 [lindex [fconfigure $server -sockname] 2]]"
("uplevel" body line 7)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== io-57.2 FAILED
ioCmd.test
==== iocmd-8.15.1 fconfigure command / tcp channel FAILED
==== Contents of test case:
iocmdSSETUP
set r[list [catch {fconfigure $cli -blah} msg] $msg]
iocmdSSHTDWN
set r
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $port"
invoked from within
"set cli [socket 127.0.0.1 $port]"
("uplevel" body line 5)
invoked from within
"uplevel {
set srv [socket -server iocmdSRV 0]
set port [lindex [fconfigure $srv -sockname] 2]
proc iocmdSRV {sock ip port} {close $sock}
set cli [..."
(procedure "iocmdSSETUP" line 2)
invoked from within
"iocmdSSETUP"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== iocmd-8.15.1 FAILED
==== iocmd-8.16 fconfigure command / tcp channel FAILED
==== Contents of test case:
iocmdSSETUP
set r [expr [lindex [fconfigure $cli -peername] 2]==$port]
iocmdSSHTDWN
set r
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $port"
invoked from within
"set cli [socket 127.0.0.1 $port]"
("uplevel" body line 5)
invoked from within
"uplevel {
set srv [socket -server iocmdSRV 0]
set port [lindex [fconfigure $srv -sockname] 2]
proc iocmdSRV {sock ip port} {close $sock}
set cli [..."
(procedure "iocmdSSETUP" line 2)
invoked from within
"iocmdSSETUP"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== iocmd-8.16 FAILED
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.1 tcp connection FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set timer [after 10000 "set x timed_out"]
set f [socket -server accept 0]
proc accept {file addr port} {
global x
set x done
close $file
}
puts ready
puts [lindex [fconfigure $f -sockname] 2]
vwait x
after cancel $timer
close $f
puts $x
}
close $f
set f [open "|[list [interpreter] $path(script)]" r]
gets $f x
gets $f listen
if {[catch {socket 127.0.0.1 $listen} msg]} {
set x $msg
} else {
lappend x [gets $f]
close $msg
}
lappend x [gets $f]
close $f
set x
---- Result was:
couldn't open socket: can't assign requested address timed_out
---- Result should have been (exact matching):
ready done {}
==== socket-2.1 FAILED
==== socket-2.2 tcp connection with client port specified FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set timer [after 10000 "set x timeout"]
set f [socket -server accept 0]
proc accept {file addr port} {
global x
puts "[gets $file] $port"
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 [interpreter] $path(script)]" r]
gets $f x
gets $f listen
global port
if {[catch {socket -myport $port 127.0.0.1 $listen} sock]} {
set x $sock
close [socket 127.0.0.1 $listen]
puts stderr $sock
} else {
puts $sock hello
flush $sock
lappend x [gets $f]
close $sock
}
close $f
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $listen"
invoked from within
"if {[catch {socket -myport $port 127.0.0.1 $listen} sock]} {
set x $sock
close [socket 127.0.0.1 $listen]
puts stderr $sock
} else {
..."
("uplevel" body line 24)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-2.2 FAILED
==== socket-2.3 tcp connection with client interface specified FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set timer [after 2000 "set x done"]
set f [socket -server accept 2830]
proc accept {file addr port} {
global x
puts "[gets $file] $addr"
close $file
set x done
}
puts ready
vwait x
after cancel $timer
close $f
}
close $f
set f [open "|[list [interpreter] $path(script)]" r]
gets $f x
if {[catch {socket -myaddr 127.0.0.1 127.0.0.1 2830} 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: can't assign requested address
---- Result should have been (exact matching):
ready {hello 127.0.0.1}
==== socket-2.3 FAILED
==== socket-2.4 tcp connection with server interface specified FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set timer [after 2000 "set x done"]
set f [socket -server accept -myaddr 127.0.0.1 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 [interpreter] $path(script)]" r]
gets $f x
gets $f listen
if {[catch {socket 127.0.0.1 $listen} sock]} {
set x $sock
} else {
puts $sock hello
flush $sock
lappend x [gets $f]
close $sock
}
close $f
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket -server accept -myaddr 127.0.0.1 0"
invoked from within
"set f [socket -server accept -myaddr 127.0.0.1 0]"
(file "/usr/ports/lang/tcl84/work/tcl8.4.13/unix/script" line 3)
while executing
"close $f"
("uplevel" body line 31)
invoked from within
"uplevel 1 $script"
---- errorCode: CHILDSTATUS 33891 1
==== socket-2.4 FAILED
==== socket-2.5 tcp connection with redundant server port FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set timer [after 10000 "set x timeout"]
set f [socket -server accept 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 [interpreter] $path(script)]" r]
gets $f x
gets $f listen
if {[catch {socket 127.0.0.1 $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: can't assign requested address
---- Result should have been (exact matching):
ready hello
==== socket-2.5 FAILED
==== socket-2.7 echo server, one line FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set timer [after 10000 "set x timeout"]
set f [socket -server accept 0]
proc accept {s a p} {
fileevent $s readable[list echo $s]
fconfigure $s -translation lf -buffering line
}
proc echo {s} {
set l [gets $s]
if {[eof $s]} {
global x
close $s
set x done
} else {
puts $s $l
}
}
puts ready
puts [lindex [fconfigure $f -sockname] 2]
vwait x
after cancel $timer
close $f
puts $x
}
close $f
set f [open "|[list [interpreter] $path(script)]" r]
gets $f
gets $f listen
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
set y [gets $f]
close $f
list $x $y
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $listen"
invoked from within
"set s [socket 127.0.0.1 $listen]"
("uplevel" body line 32)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-2.7 FAILED
==== socket-2.8 echo server, loop 50 times, single connection FAILED
==== Contents of test case:
set f [open "|[list [interpreter] $path(script)]" r]
gets $f
gets $f listen
set s [socket 127.0.0.1 $listen]
fconfigure $s -buffering line
catch {
for {set x 0} {$x < 50} {incr x} {
puts $s "hello abcdefghijklmnop"
gets $s
}
}
close $s
catch {set x [gets $f]}
close $f
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $listen"
invoked from within
"set s [socket 127.0.0.1 $listen]"
("uplevel" body line 5)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-2.8 FAILED
==== socket-2.11 detecting new data FAILED
==== Contents of test case:
proc accept {s a p} {
global sock
set sock $s
}
set s [socket -server accept 0]
set sock ""
set s2 [socket 127.0.0.1 [lindex [fconfigure $s -sockname] 2]]
vwait sock
puts $s2 one
flush $s2
after 500
fconfigure $sock -blocking 0
set result a:[gets $sock]
lappend result b:[gets $sock]
fconfigure $sock -blocking 1
puts $s2 two
flush $s2
fconfigure $sock -blocking 0
lappend result c:[gets $sock]
fconfigure $sock -blocking 1
close $s2
close $s
close $sock
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 [lindex [fconfigure $s -sockname] 2]"
invoked from within
"set s2 [socket 127.0.0.1 [lindex [fconfigure $s -sockname] 2]]"
("uplevel" body line 9)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-2.11 FAILED
==== socket-3.2 server with several clients FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set t1 [after 30000 "set x timed_out"]
set t2 [after 31000 "set x timed_out"]
set t3 [after 32000 "set x timed_out"]
set counter 0
set s [socket -server accept 0]
proc accept {s a p} {
fileevent $s readable[list echo $s]
fconfigure $s -buffering line
}
proc echo {s} {
global x
set l [gets $s]
if {[eof $s]} {
close $s
set x done
} else {
puts $s $l
}
}
puts ready
puts [lindex [fconfigure $s -sockname] 2]
vwait x
after cancel $t1
vwait x
after cancel $t2
vwait x
after cancel $t3
close $s
puts $x
}
close $f
set f [open "|[list [interpreter] $path(script)]" r+]
set x [gets $f]
gets $f listen
set s1 [socket 127.0.0.1 $listen]
fconfigure $s1 -buffering line
set s2 [socket 127.0.0.1 $listen]
fconfigure $s2 -buffering line
set s3 [socket 127.0.0.1 $listen]
fconfigure $s3 -buffering line
for {set i 0} {$i < 100} {incr i} {
puts $s1 hello,s1
gets $s1
puts $s2 hello,s2
gets $s2
puts $s3 hello,s3
gets $s3
}
close $s1
close $s2
close $s3
lappend x [gets $f]
close $f
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $listen"
invoked from within
"set s1 [socket 127.0.0.1 $listen]"
("uplevel" body line 39)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-3.2 FAILED
==== socket-4.1 server with several clients FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set port [gets stdin]
set s [socket 127.0.0.1 $port]
fconfigure $s -buffering line
for {set i 0} {$i < 100} {incr i} {
puts $s hello
gets $s
}
close $s
puts bye
gets stdin
}
close $f
set p1 [open "|[list [interpreter] $path(script)]" r+]
fconfigure $p1 -buffering line
set p2 [open "|[list [interpreter] $path(script)]" r+]
fconfigure $p2 -buffering line
set p3 [open "|[list [interpreter] $path(script)]" r+]
fconfigure $p3 -buffering line
proc accept {s a p} {
fconfigure $s -buffering line
fileevent $s readable[list echo $s]
}
proc echo {s} {
global x
set l [gets $s]
if {[eof $s]} {
close $s
set x done
} else {
puts $s $l
}
}
set t1 [after 30000 "set x timed_out"]
set t2 [after 31000 "set x timed_out"]
set t3 [after 32000 "set x timed_out"]
set s [socket -server accept 0]
set listen [lindex [fconfigure $s -sockname] 2]
puts $p1 $listen
puts $p2 $listen
puts $p3 $listen
vwait x
vwait x
vwait x
after cancel $t1
after cancel $t2
after cancel $t3
close $s
set l ""
lappend l[list p1 [gets $p1] $x]
lappend l[list p2 [gets $p2] $x]
lappend l[list p3 [gets $p3] $x]
puts $p1 bye
puts $p2 bye
puts $p3 bye
close $p1
close $p2
close $p3
set l
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: error writing "file18": broken pipe
while executing
"puts $p1 bye"
("uplevel" body line 56)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EPIPE {broken pipe}
==== socket-4.1 FAILED
==== socket-5.1 byte order problems, socket numbers, htons FAILED
==== Contents of test case:
set x {couldn't open socket: not owner}
if {![catch {socket -server dodo 0x1} msg]} {
set x {htons problem, should be disallowed, are you running as SU?}
close $msg
}
set x
---- Result was:
htons problem, should be disallowed, are you running as SU?
---- Result should have been (exact matching):
couldn't open socket: not owner
==== socket-5.1 FAILED
==== socket-5.3 byte order problems, socket numbers, htons FAILED
==== Contents of test case:
set x {couldn't open socket: not owner}
if {![catch {socket -server dodo 21} msg]} {
set x {htons problem, should be disallowed, are you running as SU?}
close $msg
}
set x
---- Result was:
htons problem, should be disallowed, are you running as SU?
---- Result should have been (exact matching):
couldn't open socket: not owner
==== socket-5.3 FAILED
==== socket-6.1 accept callback error FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
gets stdin port
socket 127.0.0.1 $port
}
close $f
set f [open "|[list [interpreter] $path(script)]" r+]
proc bgerror args {
global x
set x $args
}
proc accept {s a p} {expr 10 / 0}
set s [socket -server accept 0]
puts $f [lindex [fconfigure $s -sockname] 2]
close $f
set timer [after 10000 "set x timed_out"]
vwait x
after cancel $timer
close $s
rename bgerror {}
set x
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $port"
(file "/usr/ports/lang/tcl84/work/tcl8.4.13/unix/script" line 3)
while executing
"close $f"
("uplevel" body line 17)
invoked from within
"uplevel 1 $script"
---- errorCode: CHILDSTATUS 33989 1
==== socket-6.1 FAILED
==== socket-7.1 testing socket specific options FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set ss [socket -server accept 0]
proc accept args {
global x
set x done
}
puts ready
puts [lindex [fconfigure $ss -sockname] 2]
set timer [after 10000 "set x timed_out"]
vwait x
after cancel $timer
}
close $f
set f [open "|[list [interpreter] $path(script)]" r]
gets $f
gets $f listen
set s [socket 127.0.0.1 $listen]
set p [fconfigure $s -peername]
close $s
close $f
set l ""
lappend l [string compare [lindex $p 0] 127.0.0.1]
lappend l [string compare [lindex $p 2] $listen]
lappend l [llength $p]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $listen"
invoked from within
"set s [socket 127.0.0.1 $listen]"
("uplevel" body line 20)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-7.1 FAILED
==== socket-7.2 testing socket specific options FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set ss [socket -server accept 2821]
proc accept args {
global x
set x done
}
puts ready
puts [lindex [fconfigure $ss -sockname] 2]
set timer [after 10000 "set x timed_out"]
vwait x
after cancel $timer
}
close $f
set f [open "|[list [interpreter] $path(script)]" r]
gets $f
gets $f listen
set s [socket 127.0.0.1 $listen]
set p [fconfigure $s -sockname]
close $s
close $f
list [llength $p] [regexp {^(127\.0\.0\.1|0\.0\.0\.0)$} [lindex $p 0]] [expr {[lindex $p 2] == $listen}]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 $listen"
invoked from within
"set s [socket 127.0.0.1 $listen]"
("uplevel" body line 20)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-7.2 FAILED
==== socket-7.5 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 127.0.0.1 $listen]
set timer [after 10000 "set x timed_out"]
vwait x
after cancel $timer
close $s
close $s1
set l ""
lappend l [lindex $x 0] [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: can't assign requested address
while executing
"socket 127.0.0.1 $listen"
invoked from within
"set s1 [socket 127.0.0.1 $listen]"
("uplevel" body line 9)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-7.5 FAILED
==== socket-10.1 testing socket accept callback error handling FAILED
==== Contents of test case:
set goterror 0
proc bgerror args {global goterror; set goterror 1}
set s [socket -server accept 0]
proc accept {s a p} {close $s; error}
set c [socket 127.0.0.1 [lindex [fconfigure $s -sockname] 2]]
vwait goterror
close $s
close $c
set goterror
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: can't assign requested address
while executing
"socket 127.0.0.1 [lindex [fconfigure $s -sockname] 2]"
invoked from within
"set c [socket 127.0.0.1 [lindex [fconfigure $s -sockname] 2]]"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EADDRNOTAVAIL {can't assign requested address}
==== socket-10.1 FAILED |
can't assign requested address
Linear Mode
