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