Attachment "testlog_2012-12-13_hao.txt" to
ticket [3092089fff]
added by
oehhar
2012-12-13 16:53:46.
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
