Posted to tcl by hypnotoad at Tue Nov 07 16:42:39 GMT 2017view raw
- 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