Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. Identifier REG_SZ x86 Family 6 Model 15 Stepping 6 =============================================================================== *** Compiler has 'Optimizations' *** Compiler has 'Pentium 0x0f fix' *** Linker has 'Win98 alignment problem' *** Doing threads *** Intermediate directory will be '.\Release\tcl_ThreadedDynamic' *** Output directory will be '.\Release' *** Suffix for binaries will be 't' *** Optional defines are '-DTCL_CFGVAL_ENCODING=\"cp1252\" -DSTDC_HEADERS -DTCL_THREADS=1 -DUSE_THREAD_ALLOC=1 -DNDEBUG -DTCL_CFG_OPTIMIZED -DNO_STRTOI64' *** Compiler version 6. Target machine is IX86 *** Host architecture is IX86 *** Compiler options '-W3 -QI0f -Ot -Oi -Op -Gs -YX -GZ -W3' *** Link options '' *** Dependency rules are not being used. set TCL_LIBRARY=../library .\Release\tcltest.exe "../tests/all.tcl" -loadfile C:\Users\oehhar\AppData\Local\Temp\nm620D.tmp Tests running in interp: C:/test/tcl8.5.13/win/Release/tcltest.exe Tests located in: C:/test/tcl8.5.13/tests Tests running in: C:/test/tcl8.5.13/win Temporary files stored in C:/test/tcl8.5.13/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 Thu Dec 13 10:15:22 +0100 2012 append.test appendComp.test apply.test assocd.test async.test autoMkindex.test ==== autoMkindex-4.1 platform indenpendant source commands FAILED ==== Contents of test case: file delete tclIndex auto_mkindex . pkg/samename.tcl set f [open tclIndex r] set dat [split [string trim [read $f]] "\n"] set len [llength $dat] set result [lsort [lrange $dat [expr {$len-2}] [expr {$len-1}]]] close $f set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "tclIndex": permission denied while executing "open "tclIndex" w" (procedure "auto_mkindex" line 32) invoked from within "auto_mkindex . pkg/samename.tcl" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== autoMkindex-4.1 FAILED basic.test binary.test case.test chan.test chanio.test ==== chan-io-30.5 Tcl_Write cr, Tcl_Read lf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation lf set x [chan read $f] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.5 FAILED ==== chan-io-30.6 Tcl_Write cr, Tcl_Read crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation crlf set x [chan read $f] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.6 FAILED ==== chan-io-30.7 Tcl_Write crlf, Tcl_Read crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation crlf set x [chan read $f] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.7 FAILED ==== chan-io-30.8 Tcl_Write crlf, Tcl_Read lf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation lf set x [chan read $f] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.8 FAILED ==== chan-io-30.9 Tcl_Write crlf, Tcl_Read cr FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation cr set x [chan read $f] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.9 FAILED ==== chan-io-30.10 Tcl_Write lf, Tcl_Read auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] set c [chan read $f] set x [chan configure $f -translation] chan close $f list $c $x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.10 FAILED ==== chan-io-30.11 Tcl_Write cr, Tcl_Read auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] set c [chan read $f] set x [chan configure $f -translation] chan close $f list $c $x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.11 FAILED ==== chan-io-30.12 Tcl_Write crlf, Tcl_Read auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] set c [chan read $f] set x [chan configure $f -translation] chan close $f list $c $x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.12 FAILED ==== chan-io-30.13 Tcl_Write crlf on block boundary, Tcl_Read auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf set line "123456789ABCDE" ;# 14 char plus crlf chan puts -nonewline $f x ;# shift crlf across block boundary for {set i 0} {$i < 700} {incr i} { chan puts $f $line } chan close $f set f [open $path(test1) r] chan configure $f -translation auto set c [chan read $f] chan close $f string length $c ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.13 FAILED ==== chan-io-30.14 Tcl_Write crlf on block boundary, Tcl_Read crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf set line "123456789ABCDE" ;# 14 char plus crlf chan puts -nonewline $f x ;# shift crlf across block boundary for {set i 0} {$i < 700} {incr i} { chan puts $f $line } chan close $f set f [open $path(test1) r] chan configure $f -translation crlf set c [chan read $f] chan close $f string length $c ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-30.14 FAILED ==== chan-io-31.1 Tcl_Write lf, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] set l "" lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.1 FAILED ==== chan-io-31.2 Tcl_Write cr, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] set l "" lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.2 FAILED ==== chan-io-31.3 Tcl_Write crlf, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] set l "" lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.3 FAILED ==== chan-io-31.4 Tcl_Write lf, Tcl_Gets lf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation lf set l "" lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.4 FAILED ==== chan-io-31.5 Tcl_Write lf, Tcl_Gets cr FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation cr set l "" lappend l [string length [chan gets $f]] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.5 FAILED ==== chan-io-31.6 Tcl_Write lf, Tcl_Gets crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation crlf set l "" lappend l [string length [chan gets $f]] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.6 FAILED ==== chan-io-31.7 Tcl_Write cr, Tcl_Gets cr FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation cr set l "" lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.7 FAILED ==== chan-io-31.8 Tcl_Write cr, Tcl_Gets lf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation lf set l "" lappend l [string length [chan gets $f]] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.8 FAILED ==== chan-io-31.9 Tcl_Write cr, Tcl_Gets crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation crlf set l "" lappend l [string length [chan gets $f]] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.9 FAILED ==== chan-io-31.10 Tcl_Write crlf, Tcl_Gets crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation crlf set l "" lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.10 FAILED ==== chan-io-31.12 Tcl_Write crlf, Tcl_Gets lf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf chan puts $f hello\nthere\nand\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation lf set l "" lappend l [string length [chan gets $f]] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] lappend l [string length [chan gets $f]] lappend l [chan tell $f] lappend l [chan configure $f -translation] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.12 FAILED ==== chan-io-31.13 binary mode is synonym of lf mode FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation binary set x [chan configure $f -translation] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.13 FAILED ==== chan-io-31.14 Tcl_Write mixed, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts $f hello\nthere\rand\r\nhere chan close $f set f [open $path(test1) r] chan configure $f -translation auto set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.14 FAILED ==== chan-io-31.15 Tcl_Write mixed, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts -nonewline $f hello\nthere\rand\r\nhere\r chan close $f set f [open $path(test1) r] chan configure $f -translation auto set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.15 FAILED ==== chan-io-31.16 Tcl_Write mixed, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts -nonewline $f hello\nthere\rand\r\nhere\n chan close $f set f [open $path(test1) r] set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.16 FAILED ==== chan-io-31.18 Tcl_Write ^Z at end, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf set s [format "hello\nthere\nand\rhere\n\%c" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -eofchar \x1a -translation auto set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.18 FAILED ==== chan-io-31.19 Tcl_Write, implicit ^Z at end, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -eofchar \x1a -translation lf chan puts $f hello\nthere\nand\rhere chan close $f set f [open $path(test1) r] chan configure $f -eofchar \x1a -translation auto set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.19 FAILED ==== chan-io-31.20 Tcl_Write, ^Z in middle, Tcl_Gets auto, eofChar FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -eofchar \x1a chan configure $f -translation auto set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.20 FAILED ==== chan-io-31.21 Tcl_Write, no newline ^Z in middle, Tcl_Gets auto, eofChar FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -eofchar \x1a -translation auto set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.21 FAILED ==== chan-io-31.23 Tcl_Write, ^Z in middle ignored, Tcl_Gets cr FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr -eofchar {} set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -translation cr -eofchar {} set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.23 FAILED ==== chan-io-31.24 Tcl_Write, ^Z in middle ignored, Tcl_Gets crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf -eofchar {} set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -translation crlf -eofchar {} set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.24 FAILED ==== chan-io-31.25 Tcl_Write lf, ^Z in middle, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -translation auto -eofchar \x1a set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.25 FAILED ==== chan-io-31.26 Tcl_Write lf, ^Z in middle, Tcl_Gets lf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -translation lf -eofchar \x1a set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.26 FAILED ==== chan-io-31.28 Tcl_Write cr, ^Z in middle, Tcl_Gets cr FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr -eofchar {} set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -translation cr -eofchar \x1a set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.28 FAILED ==== chan-io-31.29 Tcl_Write crlf, ^Z in middle, Tcl_Gets auto FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf -eofchar {} set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -translation auto -eofchar \x1a set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.29 FAILED ==== chan-io-31.30 Tcl_Write crlf, ^Z in middle, Tcl_Gets crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf -eofchar {} set s [format "abc\ndef\n%cqrs\ntuv" 26] chan puts $f $s chan close $f set f [open $path(test1) r] chan configure $f -translation crlf -eofchar \x1a set l "" lappend l [chan gets $f] lappend l [chan gets $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.30 FAILED ==== chan-io-31.31 Tcl_Write crlf on block boundary, Tcl_Gets crlf FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf set line "123456789ABCDE" ;# 14 char plus crlf chan puts -nonewline $f x ;# shift crlf across block boundary for {set i 0} {$i < 700} {incr i} { chan puts $f $line } chan close $f set f [open $path(test1) r] chan configure $f -translation crlf set c "" while {[chan gets $f line] >= 0} { append c $line\n } chan close $f string length $c ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-31.31 FAILED ==== chan-io-35.14 Tcl_Eof, eof char in middle, cr write, auto read FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation cr -eofchar {} set i [format abc\ndef\n%cqrs\nuvw 26] chan puts $f $i chan close $f set c [file size $path(test1)] set f [open $path(test1) r] chan configure $f -translation auto -eofchar \x1a set l [string length [chan read $f]] set e [chan eof $f] chan close $f list $c $l $e ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-35.14 FAILED ==== chan-io-35.16 Tcl_Eof, eof char in middle, crlf write, auto read FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf -eofchar {} set i [format abc\ndef\n%cqrs\nuvw 26] chan puts $f $i chan close $f set c [file size $path(test1)] set f [open $path(test1) r] chan configure $f -translation auto -eofchar \x1a set l [string length [chan read $f]] set e [chan eof $f] chan close $f list $c $l $e ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-35.16 FAILED ==== chan-io-35.17 Tcl_Eof, eof char in middle, crlf write, crlf read FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation crlf -eofchar {} set i [format abc\ndef\n%cqrs\nuvw 26] chan puts $f $i chan close $f set c [file size $path(test1)] set f [open $path(test1) r] chan configure $f -translation crlf -eofchar \x1a set l [string length [chan read $f]] set e [chan eof $f] chan close $f list $c $l $e ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-35.17 FAILED ==== chan-io-39.13 Tcl_SetChannelOption, Tcl_GetChannelOption, buffer size FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -buffersize 40000 set x [chan configure $f -buffersize] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-39.13 FAILED ==== chan-io-39.14 Tcl_SetChannelOption: -encoding, binary & utf-8 FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -encoding {} chan puts -nonewline $f \xe7\x89\xa6 chan close $f set f [open $path(test1) r] chan configure $f -encoding utf-8 set x [chan read $f] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-39.14 FAILED ==== chan-io-39.15 Tcl_SetChannelOption: -encoding, binary & utf-8 FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -encoding binary chan puts -nonewline $f \xe7\x89\xa6 chan close $f set f [open $path(test1) r] chan configure $f -encoding utf-8 set x [chan read $f] chan close $f set x ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-39.15 FAILED ==== chan-io-39.16 Tcl_SetChannelOption: -encoding, errors FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] set result [list [catch {chan configure $f -encoding foobar} msg] $msg] chan close $f set result ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-39.16 FAILED ==== chan-io-49.4 testing crlf reading, leftover cr disgorgment FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts -nonewline $f "a\rb\rc\r\n" chan close $f set f [open $path(test1) r] set l "" lappend l [file size $path(test1)] chan configure $f -translation crlf lappend l [chan read $f 3] lappend l [chan tell $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan eof $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-49.4 FAILED ==== chan-io-49.5 testing crlf reading, leftover cr disgorgment FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan configure $f -translation lf chan puts -nonewline $f "a\rb\rc\r\n" chan close $f set f [open $path(test1) r] set l "" lappend l [file size $path(test1)] chan configure $f -translation crlf lappend l [set x [chan gets $f]] lappend l [chan tell $f] lappend l [chan gets $f] lappend l [chan tell $f] lappend l [chan eof $f] chan close $f set l ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-49.5 FAILED ==== chan-io-50.1 testing handler deletion FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan close $f set f [open $path(test1) r] testchannelevent $f add readable [namespace code [list delhandler $f]] proc delhandler {f} { variable z set z called testchannelevent $f delete 0 } set z not_called update chan close $f set z ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-50.1 FAILED ==== chan-io-50.2 testing handler deletion with multiple handlers FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan close $f set f [open $path(test1) r] testchannelevent $f add readable [namespace code [list delhandler $f 1]] testchannelevent $f add readable [namespace code [list delhandler $f 0]] proc delhandler {f i} { variable z lappend z "called delhandler $f $i" testchannelevent $f delete 0 } set z "" update chan close $f string compare [string tolower $z] [list [list called delhandler $f 0] [list called delhandler $f 1]] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-50.2 FAILED ==== chan-io-50.3 testing handler deletion with multiple handlers FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan close $f set f [open $path(test1) r] testchannelevent $f add readable [namespace code [list notcalled $f 1]] testchannelevent $f add readable [namespace code [list delhandler $f 0]] set z "" proc notcalled {f i} { variable z lappend z "notcalled was called!! $f $i" } proc delhandler {f i} { variable z testchannelevent $f delete 1 lappend z "delhandler $f $i called" testchannelevent $f delete 0 lappend z "delhandler $f $i deleted myself" } set z "" update chan close $f string compare [string tolower $z] [list [list delhandler $f 0 called] [list delhandler $f 0 deleted myself]] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-50.3 FAILED ==== chan-io-50.4 testing handler deletion vs reentrant calls FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan close $f set f [open $path(test1) r] testchannelevent $f add readable [namespace code [list delrecursive $f]] proc delrecursive {f} { variable z variable u if {"$u" == "recursive"} { testchannelevent $f delete 0 lappend z "delrecursive deleting recursive" } else { lappend z "delrecursive calling recursive" set u recursive update } } variable u toplevel variable z "" update chan close $f string compare [string tolower $z] {{delrecursive calling recursive} {delrecursive deleting recursive}} ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-50.4 FAILED ==== chan-io-50.5 testing handler deletion vs reentrant calls FAILED ==== Contents of test case: file delete $path(test1) set f [open $path(test1) w] chan close $f set f [open $path(test1) r] testchannelevent $f add readable [namespace code [list notcalled $f]] testchannelevent $f add readable [namespace code [list del $f]] proc notcalled {f} { variable z lappend z "notcalled was called!! $f" } proc del {f} { variable u variable z if {"$u" == "recursive"} { testchannelevent $f delete 1 testchannelevent $f delete 0 lappend z "del deleted notcalled" lappend z "del deleted myself" } else { set u recursive lappend z "del calling recursive" update lappend z "del after update" } } set z "" set u toplevel update chan close $f string compare [string tolower $z] [list {del calling recursive} {del deleted notcalled} {del deleted myself} {del after update}] ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/test1": permission denied while executing "open $path(test1) w" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-50.5 FAILED ==== chan-io-72.5 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.5 FAILED ==== chan-io-72.6 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.6 FAILED ==== chan-io-71.7 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.7 FAILED ==== chan-io-72.7 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.7 FAILED ==== chan-io-71.8 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.8 FAILED ==== chan-io-72.8 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.8 FAILED ==== chan-io-71.9 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.9 FAILED ==== chan-io-72.9 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.9 FAILED ==== chan-io-71.10 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.10 FAILED ==== chan-io-72.10 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.10 FAILED ==== chan-io-71.11 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.11 FAILED ==== chan-io-72.11 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.11 FAILED ==== chan-io-72.12 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.12 FAILED ==== chan-io-71.13 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.13 FAILED ==== chan-io-72.13 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.13 FAILED ==== chan-io-71.14 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.14 FAILED ==== chan-io-72.14 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.14 FAILED ==== chan-io-71.15 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.15 FAILED ==== chan-io-72.15 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.15 FAILED ==== chan-io-71.16 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.16 FAILED ==== chan-io-72.16 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.16 FAILED ==== chan-io-71.17 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.17 FAILED ==== chan-io-72.17 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.17 FAILED ==== chan-io-72.18 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.18 FAILED ==== chan-io-71.19 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.19 FAILED ==== chan-io-72.19 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.19 FAILED ==== chan-io-71.20 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.20 FAILED ==== chan-io-72.20 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.20 FAILED ==== chan-io-72.21 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.21 FAILED ==== chan-io-71.22 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.22 FAILED ==== chan-io-72.22 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.22 FAILED ==== chan-io-71.23 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.23 FAILED ==== chan-io-72.23 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.23 FAILED ==== chan-io-71.24 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.24 FAILED ==== chan-io-71.25 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.25 FAILED ==== chan-io-72.25 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.25 FAILED ==== chan-io-71.26 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.26 FAILED ==== chan-io-72.26 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.26 FAILED ==== chan-io-71.27 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.27 FAILED ==== chan-io-71.28 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.28 FAILED ==== chan-io-72.28 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.28 FAILED ==== chan-io-71.29 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.29 FAILED ==== chan-io-72.29 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.29 FAILED ==== chan-io-71.30 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.30 FAILED ==== chan-io-72.30 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.30 FAILED ==== chan-io-71.31 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.31 FAILED ==== chan-io-72.31 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.31 FAILED ==== chan-io-71.32 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.32 FAILED ==== chan-io-72.32 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.32 FAILED ==== chan-io-71.33 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.33 FAILED ==== chan-io-71.34 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.34 FAILED ==== chan-io-72.34 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.34 FAILED ==== chan-io-71.35 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.35 FAILED ==== chan-io-72.35 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.35 FAILED ==== chan-io-71.36 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.36 FAILED ==== chan-io-72.36 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.36 FAILED ==== chan-io-71.37 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.37 FAILED ==== chan-io-72.37 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.37 FAILED ==== chan-io-71.38 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.38 FAILED ==== chan-io-72.38 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.38 FAILED ==== chan-io-71.39 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.39 FAILED ==== chan-io-72.40 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.40 FAILED ==== chan-io-71.41 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.41 FAILED ==== chan-io-72.41 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.41 FAILED ==== chan-io-71.42 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.42 FAILED ==== chan-io-72.42 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.42 FAILED ==== chan-io-71.51 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.51 FAILED ==== chan-io-72.51 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.51 FAILED ==== chan-io-71.52 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.52 FAILED ==== chan-io-72.52 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.52 FAILED ==== chan-io-71.53 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.53 FAILED ==== chan-io-72.53 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.53 FAILED ==== chan-io-71.54 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.54 FAILED ==== chan-io-72.54 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.54 FAILED ==== chan-io-71.55 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.55 FAILED ==== chan-io-72.55 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.55 FAILED ==== chan-io-72.59 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.59 FAILED ==== chan-io-71.60 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.60 FAILED ==== chan-io-72.60 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.60 FAILED ==== chan-io-71.61 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.61 FAILED ==== chan-io-72.61 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.61 FAILED ==== chan-io-71.62 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.62 FAILED ==== chan-io-72.62 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.62 FAILED ==== chan-io-71.63 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.63 FAILED ==== chan-io-72.63 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.63 FAILED ==== chan-io-71.64 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.64 FAILED ==== chan-io-72.64 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.64 FAILED ==== chan-io-71.65 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.65 FAILED ==== chan-io-72.65 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.65 FAILED ==== chan-io-71.66 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.66 FAILED ==== chan-io-72.67 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.67 FAILED ==== chan-io-71.68 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.68 FAILED ==== chan-io-72.68 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.68 FAILED ==== chan-io-71.69 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.69 FAILED ==== chan-io-72.69 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.69 FAILED ==== chan-io-72.73 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.73 FAILED ==== chan-io-71.78 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.78 FAILED ==== chan-io-72.78 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.78 FAILED ==== chan-io-71.79 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.79 FAILED ==== chan-io-72.79 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.79 FAILED ==== chan-io-71.80 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.80 FAILED ==== chan-io-72.80 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.80 FAILED ==== chan-io-71.81 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.81 FAILED ==== chan-io-72.81 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.81 FAILED ==== chan-io-71.82 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.82 FAILED ==== chan-io-72.82 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.82 FAILED ==== chan-io-72.83 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.83 FAILED ==== chan-io-71.84 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.84 FAILED ==== chan-io-72.84 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.84 FAILED ==== chan-io-71.85 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.85 FAILED ==== chan-io-72.85 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.85 FAILED ==== chan-io-71.87 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.87 FAILED ==== chan-io-72.87 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.87 FAILED ==== chan-io-71.88 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.88 FAILED ==== chan-io-72.88 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.88 FAILED ==== chan-io-71.89 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.89 FAILED ==== chan-io-72.89 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.89 FAILED ==== chan-io-72.95 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.95 FAILED ==== chan-io-71.96 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.96 FAILED ==== chan-io-72.96 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.96 FAILED ==== chan-io-71.97 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.97 FAILED ==== chan-io-71.98 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.98 FAILED ==== chan-io-72.98 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.98 FAILED ==== chan-io-71.99 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.99 FAILED ==== chan-io-72.99 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.99 FAILED ==== chan-io-71.a0 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.a0 FAILED ==== chan-io-72.a0 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a0 FAILED ==== chan-io-71.a1 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.a1 FAILED ==== chan-io-72.a1 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a1 FAILED ==== chan-io-71.a2 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.a2 FAILED ==== chan-io-72.a2 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a2 FAILED ==== chan-io-71.a3 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.a3 FAILED ==== chan-io-72.a3 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a3 FAILED ==== chan-io-71.a4 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.a4 FAILED ==== chan-io-72.a5 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a5 FAILED ==== chan-io-71.a6 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.a6 FAILED ==== chan-io-72.a6 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a6 FAILED ==== chan-io-71.a7 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.a7 FAILED ==== chan-io-72.a7 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a7 FAILED ==== chan-io-72.a8 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a8 FAILED ==== chan-io-71.a9 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.a9 FAILED ==== chan-io-72.a9 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.a9 FAILED ==== chan-io-71.b0 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.b0 FAILED ==== chan-io-72.b0 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.b0 FAILED ==== chan-io-71.b1 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.b1 FAILED ==== chan-io-71.b2 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.b2 FAILED ==== chan-io-72.b2 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.b2 FAILED ==== chan-io-72.b8 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.b8 FAILED ==== chan-io-71.b9 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.b9 FAILED ==== chan-io-72.b9 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.b9 FAILED ==== chan-io-71.c0 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c0 FAILED ==== chan-io-72.c0 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.c0 FAILED ==== chan-io-71.c1 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c1 FAILED ==== chan-io-72.c1 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.c1 FAILED ==== chan-io-71.c2 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c2 FAILED ==== chan-io-72.c2 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.c2 FAILED ==== chan-io-71.c3 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c3 FAILED ==== chan-io-72.c3 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.c3 FAILED ==== chan-io-71.c4 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c4 FAILED ==== chan-io-72.c4 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.c4 FAILED ==== chan-io-71.c6 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c6 FAILED ==== chan-io-72.c6 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.c6 FAILED ==== chan-io-71.c7 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c7 FAILED ==== chan-io-72.c7 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.c7 FAILED ==== chan-io-71.c8 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c8 FAILED ==== chan-io-71.c9 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.c9 FAILED ==== chan-io-72.c9 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.c9 FAILED ==== chan-io-71.d0 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.d0 FAILED ==== chan-io-72.d0 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d0 FAILED ==== chan-io-71.d1 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.d1 FAILED ==== chan-io-72.d1 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d1 FAILED ==== chan-io-72.d2 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d2 FAILED ==== chan-io-71.d3 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.d3 FAILED ==== chan-io-72.d3 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d3 FAILED ==== chan-io-71.d4 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.d4 FAILED ==== chan-io-72.d4 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d4 FAILED ==== chan-io-72.d6 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d6 FAILED ==== chan-io-71.d7 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.d7 FAILED ==== chan-io-72.d7 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d7 FAILED ==== chan-io-71.d8 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.d8 FAILED ==== chan-io-72.d8 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d8 FAILED ==== chan-io-71.d9 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.d9 FAILED ==== chan-io-72.d9 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.d9 FAILED ==== chan-io-71.e0 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.e0 FAILED ==== chan-io-72.e0 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.e0 FAILED ==== chan-io-71.e1 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.e1 FAILED ==== chan-io-72.e1 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.e1 FAILED ==== chan-io-71.e7 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.e7 FAILED ==== chan-io-72.e7 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.e7 FAILED ==== chan-io-71.e8 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.e8 FAILED ==== chan-io-72.e8 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.e8 FAILED ==== chan-io-71.e9 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.e9 FAILED ==== chan-io-72.e9 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.e9 FAILED ==== chan-io-71.f0 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.f0 FAILED ==== chan-io-72.f0 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.f0 FAILED ==== chan-io-71.f1 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.f1 FAILED ==== chan-io-72.f1 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.f1 FAILED ==== chan-io-72.f2 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.f2 FAILED ==== chan-io-71.f3 Tcl_SetChannelError FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerror $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-71.f3 FAILED ==== chan-io-72.f3 Tcl_SetChannelErrorInterp FAILED ==== Contents of test case: set f [makeFile {... dummy ...} cutsplice] set c [open $f r] set res [testchannel setchannelerrorinterp $c [lrange $msg 0 end]] chan close $c removeFile cutsplice set res ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "C:/test/tcl8.5.13/win/cutsplice": permission denied while executing "open $fullName w" (procedure "makeFile" line 13) invoked from within "makeFile {... dummy ...} cutsplice" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== chan-io-72.f3 FAILED Warning: files left behind: chanio.test: cutsplice out clock.test cmdAH.test cmdIL.test cmdInfo.test cmdMZ.test compExpr-old.test compExpr.test compile.test concat.test config.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-6.11 CopyRenameOneFile: force == 0 FAILED ==== Contents of test case: createfile tf1 createfile tf2 file rename tf1 tf2 ---- Result was: couldn't open "tf1": permission denied ---- Result should have been (exact matching): error renaming "tf1" to "tf2": file already exists ==== fCmd-6.11 FAILED ==== fCmd-6.12 CopyRenameOneFile: force != 0 FAILED ==== Contents of test case: cleanup createfile tf1 createfile tf2 file rename -force tf1 tf2 glob tf* ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: couldn't open "tf1": permission denied while executing "open $file w" (procedure "createfile" line 2) invoked from within "createfile tf1" ("uplevel" body line 3) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== fCmd-6.12 FAILED ==== fCmd-10.10 file copy: comprehensive: source and target incompatible FAILED ==== Contents of test case: file mkdir [file join td1 tf1] createfile tf1 file copy -force tf1 td1 ---- Result was: couldn't open "tf1": permission denied ---- Result should have been (exact matching): can't overwrite directory "td1/tf1" with file "tf1" ==== fCmd-10.10 FAILED ==== fCmd-10.11 file copy: copy to empty file name FAILED ==== Contents of test case: createfile tf1 file copy tf1 "" ---- Result was: couldn't open "tf1": permission denied ---- Result should have been (exact matching): error copying "tf1" to "": no such file or directory ==== fCmd-10.11 FAILED ==== fCmd-10.12 file rename: rename to empty file name FAILED ==== Contents of test case: createfile tf1 file rename tf1 "" ---- Result was: couldn't open "tf1": permission denied ---- Result should have been (exact matching): error renaming "tf1" to "": no such file or directory ==== fCmd-10.12 FAILED ==== fCmd-16.7 remove a non-empty directory without -force FAILED ==== Contents of test case: file mkdir tfa createfile tfa/a catch {file delete tfa} ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: can't create directory "tfa": permission denied while executing "file mkdir tfa" ("uplevel" body line 2) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== fCmd-16.7 FAILED ==== fCmd-16.8 remove a normal file FAILED ==== Contents of test case: file mkdir tfa createfile tfa/a catch {file delete tfa} ---- Test generated error; Return code was: 1 ---- Return code should have been one of: 0 2 ---- errorInfo: can't create directory "tfa": permission denied while executing "file mkdir tfa" ("uplevel" body line 2) invoked from within "uplevel 1 $script" ---- errorCode: POSIX EACCES {permission denied} ==== fCmd-16.8 FAILED fileName.test fileSystem.test ==== filesystem-1.3 link normalisation FAILED ==== Contents of test case: testPathEqual [file normalize [file join dir.dir foo]] [file normalize [file join dir.link foo]] ---- Result was: not equal: C:/test/tcl8.5.13/win/dir.dir/foo C:/test/tcl8.5.13/win/dir.link/foo ---- Result should have been (exact matching): 1 ==== filesystem-1.3 FAILED ==== filesystem-1.4 link normalisation FAILED ==== Contents of test case: testPathEqual [file normalize [file join dir.dir inside.file]] [file normalize [file join dir.link inside.file]] ---- Result was: not equal: C:/test/tcl8.5.13/win/dir.dir/inside.file C:/test/tcl8.5.13/win/dir.link/inside.file ---- Result should have been (exact matching): 1 ==== filesystem-1.4 FAILED for-old.test for.test foreach.test format.test get.test history.test http.test Running httpd in thread 5720 httpold.test if-old.test if.test incr-old.test incr.test indexObj.test info.test init.test interp.test io.test