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
