Attachment "test.result.9f8b7bea53.thread" to
ticket [5d170b5ca5]
added by
emiliano
2015-08-06 02:30:54.
LD_LIBRARY_PATH=`pwd`: TCLLIBPATH="/home/emiliano/fossil/tcl/unix/pkgs" TCL_LIBRARY="/home/emiliano/fossil/tcl/library" ./tcltest /home/emiliano/fossil/tcl/tests/all.tcl
Tests running in interp: /home/emiliano/fossil/tcl/unix/tcltest
Tests located in: /home/emiliano/fossil/tcl/tests
Tests running in: /home/emiliano/fossil/tcl/unix
Temporary files stored in /home/emiliano/fossil/tcl/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 Wed Aug 05 18:36:35 ART 2015
aaa_exit.test
append.test
appendComp.test
apply.test
assemble.test
assocd.test
async.test
==== async-4.2 async interrupting straight bytecode sequence FAILED
==== Contents of test case:
apply {{handle} {
global aresult
set aresult {Async event not delivered}
testasync marklater $handle
for {set i 0} {
$i < 2500000 && $aresult eq "Async event not delivered"
} {incr i} {}
return $aresult
}} $hm
---- Result was:
Async event not delivered
---- Result should have been (exact matching):
test pattern
==== async-4.2 FAILED
autoMkindex.test
basic.test
binary.test
case.test
chan.test
chanio.test
clock.test
cmdAH.test
cmdIL.test
cmdInfo.test
cmdMZ.test
compExpr-old.test
compExpr.test
compile.test
concat.test
config.test
coroutine.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
http11.test
==== http11-1.5 normal request for document, unsupported coding FAILED
==== Contents of test case:
set tok [http::geturl http://localhost:$httpd_port/testdoc.html -timeout 10000 -headers {accept-encoding unsupported}]
http::wait $tok
list [http::status $tok] [http::code $tok] [check_crc $tok] [meta $tok content-encoding]
---- Result was:
timeout {HTTP/1.1 200 OK} {crc32 mismatch: e348b7cd ne 4f25e87d} {}
---- Result should have been (exact matching):
ok {HTTP/1.1 200 OK} ok {}
==== http11-1.5 FAILED
==== http11-1.12 normal,identity,chunked FAILED
==== Contents of test case:
set tok [http::geturl http://localhost:$httpd_port/testdoc.html -timeout 10000 -headers {accept-encoding identity}]
http::wait $tok
list [http::status $tok] [http::code $tok] [check_crc $tok] [meta $tok content-encoding] [meta $tok transfer-encoding]
---- Result was:
timeout {HTTP/1.1 200 OK} {crc32 mismatch: e348b7cd ne 4f25e87d} {} chunked
---- Result should have been (exact matching):
ok {HTTP/1.1 200 OK} ok {} chunked
==== http11-1.12 FAILED
==== http11-2.4 -channel,encoding identity FAILED
==== Contents of test case:
set tok [http::geturl http://localhost:$httpd_port/testdoc.html -timeout 5000 -channel $chan -headers {accept-encoding identity}]
http::wait $tok
seek $chan 0
set data [read $chan]
list [http::status $tok] [http::code $tok] [check_crc $tok $data] [meta $tok connection] [meta $tok content-encoding] [meta $tok transfer-encoding]
---- Result was:
timeout {HTTP/1.1 200 OK} {crc32 mismatch: e348b7cd ne d38055c8} close {} chunked
---- Result should have been (exact matching):
ok {HTTP/1.1 200 OK} ok close {} chunked
==== http11-2.4 FAILED
==== http11-2.5 -channel,encoding unsupported FAILED
==== Contents of test case:
set tok [http::geturl http://localhost:$httpd_port/testdoc.html -timeout 5000 -channel $chan -headers {accept-encoding unsupported}]
http::wait $tok
seek $chan 0
set data [read $chan]
list [http::status $tok] [http::code $tok] [check_crc $tok $data] [meta $tok connection] [meta $tok content-encoding] [meta $tok transfer-encoding]
---- Result was:
timeout {HTTP/1.1 200 OK} {crc32 mismatch: e348b7cd ne d38055c8} close {} chunked
---- Result should have been (exact matching):
ok {HTTP/1.1 200 OK} ok close {} chunked
==== http11-2.5 FAILED
==== http11-2.11 -channel,identity,keepalive FAILED
==== Contents of test case:
set tok [http::geturl http://localhost:$httpd_port/testdoc.html -headers {accept-encoding identity} -timeout 5000 -channel $chan -keepalive 1]
http::wait $tok
seek $chan 0
set data [read $chan]
list [http::status $tok] [http::code $tok] [check_crc $tok $data] [meta $tok connection] [meta $tok content-encoding] [meta $tok transfer-encoding]
---- Result was:
timeout {HTTP/1.1 200 OK} {crc32 mismatch: e348b7cd ne 65438709} {} {} chunked
---- Result should have been (exact matching):
ok {HTTP/1.1 200 OK} ok {} {} chunked
==== http11-2.11 FAILED
==== http11-4.3 normal post request, check channel query length FAILED
==== Contents of test case:
set tok [http::geturl http://localhost:$httpd_port/testdoc.html -headers [list x-check-query yes] -querychannel $chan -timeout 10000]
http::wait $tok
list status [http::status $tok] code [http::code $tok] crc [check_crc $tok] connection [meta $tok connection] query-length [meta $tok x-query-length]
---- Result was:
status timeout code {} crc {crc32 mismatch: ne 0} connection {} query-length {}
---- Result should have been (exact matching):
status ok code {HTTP/1.1 200 OK} crc ok connection close query-length 122880
==== http11-4.3 FAILED
httpold.test
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
interp.test
==== interp-36.7 SlaveBgerror sets error handler of slave [1999035] FAILED
==== Contents of test case:
slave eval {
variable done {}
after 0 error foo
after 10 [list ::set [namespace which -variable done] {}]
vwait [namespace which -variable done]
}
set result
---- Result was:
untouched
---- Result should have been (exact matching):
foo
==== interp-36.7 FAILED
io.test
ioCmd.test
ioTrans.test
iogt.test
join.test
lindex.test
link.test
linsert.test
list.test
listObj.test
llength.test
lmap.test
load.test
lrange.test
lrepeat.test
lreplace.test
lsearch.test
lset.test
lsetComp.test
macOSXFCmd.test
macOSXLoad.test
main.test
mathop.test
misc.test
msgcat.test
namespace-old.test
namespace.test
notify.test
nre.test
obj.test
oo.test
ooNext2.test
opt.test
package.test
parse.test
parseExpr.test
parseOld.test
pid.test
pkgMkIndex.test
platform.test
proc-old.test
proc.test
pwd.test
reg.test
regexp.test
regexpComp.test
registry.test
rename.test
resolver.test
result.test
safe.test
scan.test
security.test
set-old.test
set.test
socket.test
==== socket_inet-2.13 Bug 1758a0b603 FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set server [socket -server accept 0]
puts [lindex [chan configure $server -sockname] 2]
proc accept { client host port } {
chan configure $client -blocking 0 -buffering line -buffersize 1
puts $client [string repeat . 720000]
puts ready
chan event $client writable [list setup $client]
}
proc setup client {
chan event $client writable {set forever write}
after 5 {set forever timeout}
}
vwait forever
puts $forever
}
close $f
set pipe [open |[list [interpreter] $path(script)] r]
gets $pipe port
set sock [socket $localhost $port]
chan configure $sock -blocking 0 -buffering line
chan event $sock readable [list read_lines $sock $pipe ]
proc read_lines { sock pipe } {
gets $pipe
gets $sock line
after idle [list stop $sock $pipe]
chan event $sock readable {}
}
proc stop {sock pipe} {
variable done
close $sock
set done [gets $pipe]
}
variable done
vwait [namespace which -variable done]
close $pipe
set done
---- Result was:
timeout
---- Result should have been (exact matching):
write
==== socket_inet-2.13 FAILED
==== socket_inet-11.11 testing spurious events FAILED
==== Contents of test case:
proc readlittle {s} {
global spurious done len
set l [read $s 1]
if {[string length $l] == 0} {
if {![eof $s]} {
incr spurious
} else {
close $s
set done 1
}
} else {
incr len [string length $l]
}
}
set c [socket $remoteServerIP $port]
fileevent $c readable "readlittle $c"
vwait done
list $spurious $len $done
---- Result was:
0 1001 timed_out
---- Result should have been (exact matching):
0 2690 1
==== socket_inet-11.11 FAILED
==== socket_inet6-2.13 Bug 1758a0b603 FAILED
==== Contents of test case:
file delete $path(script)
set f [open $path(script) w]
puts $f {
set server [socket -server accept 0]
puts [lindex [chan configure $server -sockname] 2]
proc accept { client host port } {
chan configure $client -blocking 0 -buffering line -buffersize 1
puts $client [string repeat . 720000]
puts ready
chan event $client writable [list setup $client]
}
proc setup client {
chan event $client writable {set forever write}
after 5 {set forever timeout}
}
vwait forever
puts $forever
}
close $f
set pipe [open |[list [interpreter] $path(script)] r]
gets $pipe port
set sock [socket $localhost $port]
chan configure $sock -blocking 0 -buffering line
chan event $sock readable [list read_lines $sock $pipe ]
proc read_lines { sock pipe } {
gets $pipe
gets $sock line
after idle [list stop $sock $pipe]
chan event $sock readable {}
}
proc stop {sock pipe} {
variable done
close $sock
set done [gets $pipe]
}
variable done
vwait [namespace which -variable done]
close $pipe
set done
---- Result was:
timeout
---- Result should have been (exact matching):
write
==== socket_inet6-2.13 FAILED
==== socket_inet6-11.11 testing spurious events FAILED
==== Contents of test case:
proc readlittle {s} {
global spurious done len
set l [read $s 1]
if {[string length $l] == 0} {
if {![eof $s]} {
incr spurious
} else {
close $s
set done 1
}
} else {
incr len [string length $l]
}
}
set c [socket $remoteServerIP $port]
fileevent $c readable "readlittle $c"
vwait done
list $spurious $len $done
---- Result was:
0 1001 timed_out
---- Result should have been (exact matching):
0 2690 1
==== socket_inet6-11.11 FAILED
source.test
split.test
stack.test
string.test
stringComp.test
stringObj.test
subst.test
switch.test
tailcall.test
tcltest.test
thread.test
timer.test
==== timer-6.29 Tcl_AfterCmd procedure, info option, script with NUL FAILED
==== Contents of test case:
set x "hello world"
set id junk
set id [after 10 set x ab\0cd]
update
string length [lindex [lindex [after info $id] 0] 2]
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: event "after#62" doesn't exist
while executing
"after info $id"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: TCL LOOKUP EVENT after#62
==== timer-6.29 FAILED
tm.test
trace.test
unixFCmd.test
unixFile.test
unixForkEvent.test
unixInit.test
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
zlib.test
==== zlib-8.3 zlib transformation and fileevent FAILED
==== Contents of test case:
set sin [socket localhost $port]
try {
fconfigure $sin -translation binary
zlib push gunzip $sin
after 1000 {set total timeout}
fcopy $sin $fout -command {apply {{c {e {}}} {
set ::total [expr {$e eq {} ? $c : $e}]
}}}
vwait total
after cancel {set total timeout}
} finally {
close $sin
}
append total --> [file size $file]
---- Result was:
timeout-->49152
---- Result should have been (exact matching):
81920-->81920
==== zlib-8.3 FAILED
==== zlib-9.3 socket fcopy bg (identity) FAILED
==== Contents of test case:
lassign [chan configure $srv -sockname] addr name port
#puts "listening for connections on $addr $port"
set sin [socket localhost $port]
chan configure $sin -translation binary
update
set fout [open $file wb]
after 1000 {set ::total timeout}
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
list read $::total size [file size $file]
---- Result was:
read timeout size 49152
---- Result should have been (exact matching):
read 81920 size 81920
==== zlib-9.3 FAILED
==== zlib-9.4 socket fcopy bg (gzip) FAILED
==== Contents of test case:
lassign [chan configure $srv -sockname] addr name port
set sin [socket $addr $port]
chan configure $sin -translation binary
zlib push gunzip $sin
update
set fout [open $file wb]
after 1000 {set ::total timeout}
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
list read $::total size [file size $file]
---- Result was:
read timeout size 49152
---- Result should have been (exact matching):
read 81920 size 81920
==== zlib-9.4 FAILED
==== zlib-9.5 socket fcopy incremental (gzip) FAILED
==== Contents of test case:
lassign [chan configure $srv -sockname] addr name port
set sin [socket $addr $port]
chan configure $sin -translation binary
zlib push gunzip $sin
update
set fout [open $file wb]
after 1000 {set ::total timeout}
fcopy $sin $fout -size 8192 -command [list zlib95copy $sin $fout 0]
vwait ::total
after cancel {set ::total timeout}
close $sin; close $fout
list $::total size [file size $file]
---- Result was:
timeout size 49152
---- Result should have been (exact matching):
{eof 81920} size 81920
==== zlib-9.5 FAILED
Tests ended at Wed Aug 05 18:55:37 ART 2015
all.tcl: Total 29375 Passed 28119 Skipped 1239 Failed 17
Sourced 148 Test Files.
Files with failing tests: async.test http11.test interp.test socket.test timer.test zlib.test
Number of tests skipped for each constraint:
9 !ieeeFloatingPoint
3 asyncPipeChan
76 bigEndian
5 bug-3057639
49 dde
4 dontCopyLinks
63 emptyTest
2 hasIsoLocale
1 knownBadTest
41 knownBug
100 localeRegexp
12 longIs64bit
14 macosxFileAttr
75 memory
45 nonPortable
1 nonportable
5 notNetworkFilesystem
9 nt
1 pcOnly
1 recentZlib
3 singleTestInterp
1 testexprparser && !ieeeFloatingPoint
1 testwinclock
21 testwordend
189 thread
2 unthreaded
485 win
4 winVista
6 xdev