Attachment "make_test.log" to
ticket [1535193fff]
added by
sf-hlai
2006-08-06 05:59:24.
LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}; export LD_LIBRARY_PATH; \
TCL_LIBRARY="/var/tmp/src/tcl8.5a4/library"; export TCL_LIBRARY; \
./tcltest /var/tmp/src/tcl8.5a4/unix/../tests/all.tcl
Tests running in interp: /var/tmp/src/tcl8.5a4/unix/tcltest
Tests located in: /var/tmp/src/tcl8.5a4/tests
Tests running in: /var/tmp/src/tcl8.5a4/unix
Temporary files stored in /var/tmp/src/tcl8.5a4/unix
Test files run in separate interpreters
Running tests that match: *
Skipping test files that match: l.*.test
Only running test files that match: *.test
Tests began at Sat Aug 05 15:29:57 PDT 2006
append.test
appendComp.test
apply.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
chan.test
clock.test
cmdAH.test
cmdIL.test
cmdInfo.test
cmdMZ.test
compExpr-old.test
compExpr.test
compile.test
concat.test
config.test
dcall.test
dict.test
dstring.test
encoding.test
env.test
error.test
eval.test
event.test
exec.test
execute.test
expr-old.test
expr.test
fCmd.test
fileName.test
fileSystem.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
Running httpd in thread 3
httpold.test
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
: Total 25 Passed 25 Skipped 0 Failed 0
interp.test
io.test
ioCmd.test
ioUtil.test
iogt.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
load.test
lrange.test
lrepeat.test
lreplace.test
lsearch.test
lset.test
lsetComp.test
macOSXFCmd.test
main.test
misc.test
msgcat.test
namespace-old.test
namespace.test
notify.test
obj.test
opt.test
package.test
parse.test
parseExpr.test
parseOld.test
pid.test
pkg.test
: Total 139 Passed 139 Skipped 0 Failed 0
pkgMkIndex.test
platform.test
proc-old.test
proc.test
pwd.test
reg.test
regexp.test
regexpComp.test
registry.test
rename.test
result.test
safe.test
scan.test
security.test
set-old.test
set.test
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
source.test
split.test
stack.test
string.test
stringComp.test
stringObj.test
subst.test
switch.test
tcltest.test
thread.test
Test file error: child killed: bus error
timer.test
tm.test
trace.test
unixFCmd.test
unixFile.test
unixInit.test
==== unixInit-1.2 initialisation: standard channel type deduction FAILED
==== Contents of test case:
# pipe1 is a connection to a server that reports what port it
# starts on, and delivers a constant string to the first client to
# connect to that port before exiting.
set pipe1 [open "|[list [interpreter]]" r+]
puts $pipe1 {
proc accept {channel host port} {
puts $channel {puts [fconfigure stdin -peername]; exit}
close $channel
exit
}
puts [fconfigure [socket -server accept 0] -sockname]
vwait forever }
# Note the backslash above; this is important to make sure that the
# whole string is read before an [exit] can happen...
flush $pipe1
set port [lindex [gets $pipe1] 2]
set sock [socket localhost $port]
# pipe2 is a connection to a Tcl interpreter that takes its orders
# from the socket we hand it (i.e. the server we create above.)
# These orders will tell it to print out the details about the
# socket it is taking instructions from, hopefully identifying it
# as a socket. Which is what this test is all about.
set pipe2 [open "|[list [interpreter] <@$sock]" r]
set result [gets $pipe2]
# Clear any pending data; stops certain kinds of (non-important) errors
fconfigure $pipe1 -blocking 0; gets $pipe1
fconfigure $pipe2 -blocking 0; gets $pipe2
# Close the pipes and the socket.
close $pipe2
close $pipe1
catch {close $sock}
# Can't use normal comparison, as hostname varies due to some
# installations having a messed up /etc/hosts file.
if {
[string equal 127.0.0.1 [lindex $result 0]] &&
[string equal $port [lindex $result 2]]
} then {
subst "OK"
} else {
subst "Expected: `[list 127.0.0.1 localhost $port]', Got `$result'"
}
---- Result was:
Expected: `127.0.0.1 localhost 46273', Got `0.0.0.0 localhost 46273'
---- Result should have been (exact matching):
OK
==== unixInit-1.2 FAILED
unixNotfy.test
unknown.test
unload.test
uplevel.test
upvar.test
utf.test
util.test
var.test
while-old.test
while.test
winConsole.test
winDde.test
winFCmd.test
winFile.test
winNotify.test
winPipe.test
winTime.test
Tests ended at Sat Aug 05 15:40:27 PDT 2006
all.tcl: Total 22456 Passed 21469 Skipped 983 Failed 4
Sourced 134 Test Files.
Files with failing tests: socket.test unixInit.test
Number of tests skipped for each constraint:
9 !ieeeFloatingPoint
2 95or98
4 dontCopyLinks
51 emptyTest
2 hasIsoLocale
30 knownBug
1 largefileSupport
73 littleEndian
100 localeRegexp
50 longIs32bit
14 macosxFileAttr
10 memory
38 nonPortable
5 notNetworkFilesystem
4 readonlyAttr
1 testWinCPUID
1 testexprparser && !ieeeFloatingPoint
1 testwinclock
21 testwordend
3 unknownFailure
2 unthreaded
2 wideBiggerThanInt
22 wideIs32bit
521 win
5 xdev
Test files exiting with errors:
thread.test
