#3626 socket.test failures on sparc solaris 9

[Larry W. Virden]

compiled and executed on sparc solaris 9, sun c compiler.
configured with --prefix=/tmp/tcl8414 --enable-shared --enable-symbols --enable-stubs --enable-64bit --enable-threads

socket.test

==== 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:
ready {hello 0.0.0.0}
---- Result should have been (exact matching):
ready {hello 127.0.0.1}
==== socket-2.3 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]

---- Result was:
-1 0 3
---- Result should have been (exact matching):
0 0 3
==== socket-7.1 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]

---- Result was:
0.0.0.0 1 3
---- Result should have been (exact matching):
127.0.0.1 1 3
==== socket-7.5 FAILED

[Daniel A. Steffen]

Logged In: YES
user_id=90580
Originator: NO

I fixed a 64 bit bug in TclpInetNtoa that caused 0.0.0.0 test failures on a ppc64 mac, please verify if the tip of core-8-4-branch still exhibits your problem.

2006-12-19 Daniel Steffen <das@users.sourceforge.net>
* unix/tclUnixThrd.c (TclpInetNtoa): fix for 64 bit.

[Jeffrey Hobbs]

Logged In: YES
user_id=72656
Originator: NO

works for me now.

[SourceForge Robot]

Logged In: YES
user_id=1312539
Originator: NO

This Tracker item was closed automatically by the system. It was
previously set to a Pending status, and the original submitter
did not respond within 14 days (the time period specified by
the administrator of this Tracker).