
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
