Posted to tcl by hypnotoad at Tue Nov 07 16:42:39 GMT 2017view pretty

TCL_LIBRARY="/odie/irm-faceset/tcl/library"; export TCL_LIBRARY; \
	./tclsh87.exe "./../tests/all.tcl"  \
	-load "package ifneeded Tcltest 8.7a2 [list load [file normalize tcltest87.dll] Tcltest]; \
	package ifneeded dde 1.4.0 [list load [file normalize tcldde14.dll] dde]; \
	package ifneeded registry 1.3.2 [list load [file normalize tclreg13.dll] registry]" | ./cat32.exe
Tests running in interp:  o:/odie/irm-faceset/tcl/win/tclsh87.exe
Tests located in:  O:/odie/irm-faceset/tcl/tests
Tests running in:  O:/odie/irm-faceset/tcl/win
Temporary files stored in O:/odie/irm-faceset/tcl/win
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 Tue Nov 07 11:31:18 -0500 2017
aaa_exit.test
append.test
appendComp.test
apply.test
assemble.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
chan.test
chanio.test


==== chan-io-60.1 writing illegal utf sequences FAILED
==== Contents of test case:

    # This test will hang in older revisions of the core.
    set out [open $path(script) w]
    chan puts $out {
	chan puts [testbytestring \xe2]
	exit 1
    }
    proc readit {pipe} {
	variable x
	variable result
	if {[chan eof $pipe]} {
	    set x [catch {chan close $pipe} line]
	    lappend result catch $line
	} else {
	    chan gets $pipe line
	    lappend result gets $line
	}
    }
    chan close $out
    set pipe [openpipe r $path(script)]
    chan event $pipe readable [namespace code [list readit $pipe]]
    variable x ""
    set result ""
    vwait [namespace which -variable x]
    # cut of the remainder of the error stack, especially the filename
    set result [lreplace $result 3 3 [lindex [split [lindex $result 3] \n] 0]]
    list $x $result

---- Result was:
1 {gets {} catch {invalid command name "testbytestring"}}
---- Result should have been (exact matching):
1 {gets {} catch {error writing "stdout": invalid argument}}
==== chan-io-60.1 FAILED

clock.test
cmdAH.test


==== cmdAH-20.7.1 Tcl_FileObjCmd: atime (built-in Windows names with dir path and extension) FAILED
==== Contents of test case:

    file atime [file join [temporaryDirectory] CON.txt]

---- Result was:
could not read "O:/odie/irm-faceset/tcl/win/CON.txt": no such file or directory
---- Result should have been (exact matching):
could not get access time for file "O:/odie/irm-faceset/tcl/win/CON.txt"
==== cmdAH-20.7.1 FAILED



==== cmdAH-24.14.1 Tcl_FileObjCmd: mtime (built-in Windows names with dir path and extension) FAILED
==== Contents of test case:

    file mtime [file join [temporaryDirectory] CON.txt]

---- Result was:
could not read "O:/odie/irm-faceset/tcl/win/CON.txt": no such file or directory
---- Result should have been (exact matching):
could not get modification time for file "O:/odie/irm-faceset/tcl/win/CON.txt"
==== cmdAH-24.14.1 FAILED



==== cmdAH-27.4.1 Tcl_FileObjCmd: size (built-in Windows names with dir path and extension) FAILED
==== Contents of test case:

    file size [file join [temporaryDirectory] con.txt]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not read "O:/odie/irm-faceset/tcl/win/con.txt": no such file or directory
    while executing
"file size [file join [temporaryDirectory] con.txt]"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ENOENT {no such file or directory}
==== cmdAH-27.4.1 FAILED



==== cmdAH-28.13.1 Tcl_FileObjCmd: stat (built-in Windows names) FAILED
==== Contents of test case:

    file stat [file join [temporaryDirectory] CON.txt] stat
    lmap elem {atime ctime dev gid ino mode mtime nlink size type uid} {set stat($elem)}

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not read "O:/odie/irm-faceset/tcl/win/CON.txt": no such file or directory
    while executing
"file stat [file join [temporaryDirectory] CON.txt] stat"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ENOENT {no such file or directory}
==== cmdAH-28.13.1 FAILED



==== cmdAH-29.6.1 Tcl_FileObjCmd: type (built-in Windows names, with dir path and extension) FAILED
==== Contents of test case:

    file type [file join [temporaryDirectory] CON.txt]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not read "O:/odie/irm-faceset/tcl/win/CON.txt": no such file or directory
    while executing
"file type [file join [temporaryDirectory] CON.txt]"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ENOENT {no such file or directory}
==== cmdAH-29.6.1 FAILED

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


==== fCmd-9.4.a file rename: comprehensive: dir to new name FAILED
==== Contents of test case:

    file mkdir td1 td2
    testchmod 0o555 td2
    file rename td1 td3
    file rename td2 td4
    list [lsort [glob td*]] [file writable td3] [file writable td4]

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: error renaming "td2" to "td4": permission denied
    while executing
"file rename td2 td4"
    ("uplevel" body line 5)
    invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EACCES {permission denied}
==== fCmd-9.4.a FAILED

fileName.test
fileSystem.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
http11.test
httpold.test
if-old.test
if.test
incr-old.test
incr.test
indexObj.test
info.test
init.test
interp.test
io.test


==== io-60.1 writing illegal utf sequences FAILED
==== Contents of test case:

    # This test will hang in older revisions of the core.

    set out [open $path(script) w]
    puts $out {
	puts [testbytestring \xe2]
	exit 1
    }
    proc readit {pipe} {
	variable x
	variable result
	if {[eof $pipe]} {
	    set x [catch {close $pipe} line]
	    lappend result catch $line
	} else {
	    gets $pipe line
	    lappend result gets $line
	}
    }
    close $out
    set pipe [open "|[list [interpreter] $path(script)]" r]
    fileevent $pipe readable [namespace code [list readit $pipe]]
    variable x ""
    set result ""
    vwait [namespace which -variable x]

    # cut of the remainder of the error stack, especially the filename
    set result [lreplace $result 3 3 [lindex [split [lindex $result 3] \n] 0]]
    list $x $result

---- Result was:
1 {gets {} catch {invalid command name "testbytestring"}}
---- Result should have been (exact matching):
1 {gets {} catch {error writing "stdout": invalid argument}}
==== io-60.1 FAILED

ioCmd.test
ioTrans.test


==== iortrans-11.1 origin interpreter of moved transform destroyed during access FAILED
==== Contents of test case:

    # Set up channel in thread
    set chan [interp eval $ida $helperscript]
    interp eval $ida [list ::variable tempchan [tempchan]]
    interp transfer {} $::tempchan $ida
    set chan [interp eval $ida {
	proc foo {args} {
	    handle.initialize clear drain flush limit? read write
	    handle.finalize
	    lappend ::res $args
	    # Destroy interpreter during channel access.
	    suicide
	}
	set chan [chan push $tempchan foo]
	fconfigure $chan -buffering none
	set chan
    }]
    interp alias $ida suicide {} interp delete $ida
    # Move channel to 2nd thread, transform goes with it.
    interp eval $ida [list testchannel cut $chan]
    interp eval $idb [list testchannel splice $chan]
    # Run access from interpreter B, this will give us a synchronous response.
    interp eval $idb [list set chan $chan]
    interp eval $idb [list set mid $tcltest::mainThread]
    set res [interp eval $idb {
	# Wait a bit, give the main thread the time to start its event loop to
	# wait for the response from B
	after 50
	catch { puts $chan shoo } res
	set res
    }]

---- Test cleanup failed:
error deleting "O:/odie/irm-faceset/tcl/win/tempchanfile": permission denied
---- errorInfo(cleanup): error deleting "O:/odie/irm-faceset/tcl/win/tempchanfile": permission denied
    while executing
"file delete -- $fullName"
    (procedure "removeFile" line 21)
    invoked from within
"removeFile tempchanfile"
    (procedure "tempdone" line 4)
    invoked from within
"tempdone"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): POSIX EACCES {permission denied}
==== iortrans-11.1 FAILED



==== iortrans-11.2 delete interp of reflected transform FAILED
==== Contents of test case:

    # Get base channel into the slave
    set c [tempchan]
    testchannel cut $c
    interp eval slave [list testchannel splice $c]
    interp eval slave [list set c $c]
    slave eval {
	proc no-op args {}
	proc driver {c sub args} {
	    return {initialize finalize read write}
	}
	set t [chan push $c [list driver $c]]
	chan event $c readable no-op
    }
    interp delete slave

---- Test cleanup failed:
error deleting "O:/odie/irm-faceset/tcl/win/tempchanfile": permission denied
---- errorInfo(cleanup): error deleting "O:/odie/irm-faceset/tcl/win/tempchanfile": permission denied
    while executing
"file delete -- $fullName"
    (procedure "removeFile" line 21)
    invoked from within
"removeFile tempchanfile"
    (procedure "tempdone" line 4)
    invoked from within
"tempdone"
    ("uplevel" body line 2)
    invoked from within
"uplevel 1 $cleanup"
---- errorCode(cleanup): POSIX EACCES {permission denied}
==== iortrans-11.2 FAILED

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
source.test
split.test
stack.test
string.test
stringComp.test
stringObj.test
subst.test
switch.test
tailcall.test
tcltest.test


==== tcltest-8.4 tcltest a.tcl -tmpdir notWriteableDir FAILED
==== Contents of test case:
slave msg $a -tmpdir $notWriteableDir
	return $msg
---- Result was:
testdir: O:/odie/irm-faceset/tcl/win
---- Result should have been (glob matching):
*not writeable*
==== tcltest-8.4 FAILED

thread.test
timer.test
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
You should see this
Warning: files left behind:
	winPipe.test:	TCLB5B5.tmp
winTime.test
zlib.test

Tests ended at Tue Nov 07 11:36:32 -0500 2017
all.tcl:	Total	31403	Passed	30355	Skipped	1037	Failed	11
Sourced 148 Test Files.
Files with failing tests: chanio.test cmdAH.test fCmd.test io.test ioTrans.test tcltest.test
Number of tests skipped for each constraint:
	9	!ieeeFloatingPoint
	2	RealConsole
	36	Tcltest
	6	TcltestPackage
	3	asyncPipeChan
	76	bigEndian
	5	bug-3057639
	3	debug
	1	dontCopyLinks
	19	eformat
	66	emptyTest
	14	english
	2	exdev
	5	fullutf
	2	hasIsoLocale
	1	interactive
	1	knownBadTest
	38	knownBug
	100	localeRegexp
	12	longIs64bit
	14	macosxFileAttr
	78	memory
	24	nonPortable
	5	notNetworkFilesystem
	1	obsolete
	19	pkga.dllRequired
	20	pkgua.dllRequired
	2	pointerIs64bit
	8	procbodytest
	1	reg
	2	sharedCdrive
	3	singleTestInterp
	1	symbolicLinkFile
	3	tempNotWin
	1	testexprparser && !ieeeFloatingPoint
	22	testfilehandler
	2	testfilewait
	7	testfindexecutable
	1	testfork
	1	testgetencpath
	7	testpreferstable
	21	testwordend
	187	thread
	184	unix
	5	winXP
	6	xdev