rendered paste bodyTests running in interp: /usr/ports/lang/tcl84/work/tcl8.4.13/unix/tcltest
Tests located in: /usr/ports/lang/tcl84/work/tcl8.4.13/tests
Tests running in: /usr/ports/lang/tcl84/work/tcl8.4.13/unix
Temporary files stored in /usr/ports/lang/tcl84/work/tcl8.4.13/unix
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 Fri Sep 15 20:06:56 UTC 2006
append.test
appendComp.test
assocd.test
async.test
autoMkindex.test
basic.test
binary.test
case.test
clock.test
cmdAH.test
==== cmdAH-16.3 Tcl_FileObjCmd: readable FAILED
==== Contents of test case:
file reada $gorpfile
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-16.3 FAILED
==== cmdAH-17.2 Tcl_FileObjCmd: writable FAILED
==== Contents of test case:
file writable $gorpfile
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-17.2 FAILED
==== cmdAH-18.2 Tcl_FileObjCmd: executable FAILED
==== Contents of test case:
file executable $gorpfile
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-18.2 FAILED
==== cmdAH-19.11 Tcl_FileObjCmd: exists FAILED
==== Contents of test case:
file delete -force /tmp/tcl.foo.dir/file
file delete -force /tmp/tcl.foo.dir
makeDirectory /tmp/tcl.foo.dir
makeFile 12345 /tmp/tcl.foo.dir/file
file attributes /tmp/tcl.foo.dir -permissions 0000
set result [file exists /tmp/tcl.foo.dir/file]
file attributes /tmp/tcl.foo.dir -permissions 0775
removeFile /tmp/tcl.foo.dir/file
removeDirectory /tmp/tcl.foo.dir
set result
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-19.11 FAILED
==== cmdAH-25.3 Tcl_FileObjCmd: owned FAILED
==== Contents of test case:
file owned /
---- Result was:
1
---- Result should have been (exact matching):
0
==== cmdAH-25.3 FAILED
cmdIL.test
cmdInfo.test
cmdMZ.test
compExpr-old.test
compExpr.test
compile.test
concat.test
dcall.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-4.11 TclFileMakeDirsCmd: doesn't exist: errno != ENOENT FAILED
==== Contents of test case:
cleanup
file mkdir td1/td2/td3
testchmod 000 td1/td2
set msg [list [catch {file mkdir td1/td2/td3/td4} msg] $msg]
testchmod 755 td1/td2
set msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {can't create directory "td1/td2/td3": permission denied}
==== fCmd-4.11 FAILED
==== fCmd-4.14 TclFileMakeDirsCmd: TclpCreateDirectory fails FAILED
==== Contents of test case:
cleanup
file delete -force foo
file mkdir foo
file attr foo -perm 040000
set result [list [catch {file mkdir foo/tf1} msg] $msg]
file delete -force foo
set result
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {can't create directory "foo/tf1": permission denied}
==== fCmd-4.14 FAILED
==== fCmd-6.6 CopyRenameOneFile: errno != ENOENT FAILED
==== Contents of test case:
cleanup
file mkdir td1
testchmod 000 td1
createfile tf1
set msg [list [catch {file rename tf1 td1} msg] $msg]
testchmod 755 td1
set msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {error renaming "tf1" to "td1/tf1": permission denied}
==== fCmd-6.6 FAILED
==== fCmd-6.24 CopyRenameOneFile: error uses original name FAILED
==== Contents of test case:
cleanup
file mkdir ~/td1/td2
set td1name [file join [file dirname ~] [file tail ~] td1]
file attributes $td1name -permissions 0000
set msg [list [catch {file copy ~/td1 td1} msg] $msg]
file attributes $td1name -permissions 0755
file delete -force ~/td1
set msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {error copying "~/td1": permission denied}
==== fCmd-6.24 FAILED
==== fCmd-6.25 CopyRenameOneFile: error uses original name FAILED
==== Contents of test case:
cleanup
file mkdir td2
file mkdir ~/td1
set td1name [file join [file dirname ~] [file tail ~] td1]
file attributes $td1name -permissions 0000
set msg [list [catch {file copy td2 ~/td1} msg] $msg]
file attributes $td1name -permissions 0755
file delete -force ~/td1
set msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {error copying "td2" to "~/td1/td2": permission denied}
==== fCmd-6.25 FAILED
==== fCmd-6.26 CopyRenameOneFile: doesn't use original name FAILED
==== Contents of test case:
cleanup
file mkdir ~/td1/td2
set td2name [file join [file dirname ~] [file tail ~] td1 td2]
file attributes $td2name -permissions 0000
set msg [list [catch {file copy ~/td1 td1} msg] $msg]
file attributes $td2name -permissions 0755
file delete -force ~/td1
set msg
---- Result was:
0 {}
---- Result should have been (regexp matching):
1 {error copying "~/td1" to "td1": ".*td1/td2": permission denied}
==== fCmd-6.26 FAILED
==== fCmd-6.30 CopyRenameOneFile: TclpRemoveDirectory failed FAILED
==== Contents of test case:
cleanup
file mkdir foo/bar
file attr foo -perm 040555
set catchResult [catch {file rename foo/bar /tmp} msg]
set msg [lindex [split $msg :] end]
catch {file delete /tmp/bar}
catch {file attr foo -perm 040777}
catch {file delete -force foo}
list $catchResult $msg
---- Result was:
0 {}
---- Result should have been (exact matching):
1 { permission denied}
==== fCmd-6.30 FAILED
==== fCmd-9.1 file rename: comprehensive: EACCES FAILED
==== Contents of test case:
cleanup
file mkdir td1
file mkdir td2
file attr td2 -perm 040000
set result [list [catch {file rename td1 td2/} msg] $msg]
file delete -force td2
file delete -force td1
set result
---- Result was:
0 {}
---- Result should have been (exact matching):
1 {error renaming "td1" to "td2/td1": permission denied}
==== fCmd-9.1 FAILED
==== fCmd-9.3 file rename: comprehensive: file to new name FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
testchmod 444 tf2
file rename tf1 tf3
file rename tf2 tf4
list [lsort [glob tf*]] [file writable tf3] [file writable tf4]
---- Result was:
{tf3 tf4} 1 1
---- Result should have been (exact matching):
{tf3 tf4} 1 0
==== fCmd-9.3 FAILED
==== fCmd-9.4 file rename: comprehensive: dir to new name FAILED
==== Contents of test case:
cleanup
file mkdir td1 td2
testchmod 555 td2
file rename td1 td3
file rename td2 td4
list [lsort [glob td*]] [file writable td3] [file writable td4]
---- Result was:
{td3 td4} 1 1
---- Result should have been (exact matching):
{td3 td4} 1 0
==== fCmd-9.4 FAILED
==== fCmd-9.5 file rename: comprehensive: file to self FAILED
==== Contents of test case:
cleanup
createfile tf1 tf1
createfile tf2 tf2
testchmod 444 tf2
file rename -force tf1 tf1
file rename -force tf2 tf2
list [contents tf1] [contents tf2] [file writable tf1] [file writable tf2]
---- Result was:
tf1 tf2 1 1
---- Result should have been (exact matching):
tf1 tf2 1 0
==== fCmd-9.5 FAILED
==== fCmd-9.6 file rename: comprehensive: dir to self FAILED
==== Contents of test case:
cleanup
file mkdir td1
file mkdir td2
testchmod 555 td2
file rename -force td1 .
file rename -force td2 .
list [lsort [glob td*]] [file writable td1] [file writable td2]
---- Result was:
{td1 td2} 1 1
---- Result should have been (exact matching):
{td1 td2} 1 0
==== fCmd-9.6 FAILED
==== fCmd-9.7 file rename: comprehensive: file to existing file FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
createfile tfs1
createfile tfs2
createfile tfs3
createfile tfs4
createfile tfd1
createfile tfd2
createfile tfd3
createfile tfd4
testchmod 444 tfs3
testchmod 444 tfs4
testchmod 444 tfd2
testchmod 444 tfd4
set msg [list [catch {file rename tf1 tf2} msg] $msg]
file rename -force tfs1 tfd1
file rename -force tfs2 tfd2
file rename -force tfs3 tfd3
file rename -force tfs4 tfd4
list [lsort [glob tf*]] $msg [file writable tfd1] [file writable tfd2] [file writable tfd3] [file writable tfd4]
---- Result was:
{tf1 tf2 tfd1 tfd2 tfd3 tfd4} {1 {error renaming "tf1" to "tf2": file already exists}} 1 1 1 1
---- Result should have been (exact matching):
{tf1 tf2 tfd1 tfd2 tfd3 tfd4} {1 {error renaming "tf1" to "tf2": file already exists}} 1 1 0 0
==== fCmd-9.7 FAILED
==== fCmd-9.10 file rename: comprehensive: file to new name and dir FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
file mkdir td1
testchmod 444 tf2
file rename tf1 [file join td1 tf3]
file rename tf2 [file join td1 tf4]
list [catch {glob tf*}] [lsort [glob -directory td1 t*]] [file writable [file join td1 tf3]] [file writable [file join td1 tf4]]
---- Result was:
1 {td1/tf3 td1/tf4} 1 1
---- Result should have been (exact matching):
1 {td1/tf3 td1/tf4} 1 0
==== fCmd-9.10 FAILED
==== fCmd-10.2 file copy: comprehensive: file to new name FAILED
==== Contents of test case:
cleanup
createfile tf1 tf1
createfile tf2 tf2
testchmod 444 tf2
file copy tf1 tf3
file copy tf2 tf4
list [lsort [glob tf*]] [contents tf3] [contents tf4] [file writable tf3] [file writable tf4]
---- Result was:
{tf1 tf2 tf3 tf4} tf1 tf2 1 1
---- Result should have been (exact matching):
{tf1 tf2 tf3 tf4} tf1 tf2 1 0
==== fCmd-10.2 FAILED
==== fCmd-10.4 file copy: comprehensive: file to existing file FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
createfile tfs1
createfile tfs2
createfile tfs3
createfile tfs4
createfile tfd1
createfile tfd2
createfile tfd3
createfile tfd4
testchmod 444 tfs3
testchmod 444 tfs4
testchmod 444 tfd2
testchmod 444 tfd4
set msg [list [catch {file copy tf1 tf2} msg] $msg]
file copy -force tfs1 tfd1
file copy -force tfs2 tfd2
file copy -force tfs3 tfd3
file copy -force tfs4 tfd4
list [lsort [glob tf*]] $msg [file writable tfd1] [file writable tfd2] [file writable tfd3] [file writable tfd4]
---- Result was:
{tf1 tf2 tfd1 tfd2 tfd3 tfd4 tfs1 tfs2 tfs3 tfs4} {1 {error copying "tf1" to "tf2": file already exists}} 1 1 1 1
---- Result should have been (exact matching):
{tf1 tf2 tfd1 tfd2 tfd3 tfd4 tfs1 tfs2 tfs3 tfs4} {1 {error copying "tf1" to "tf2": file already exists}} 1 1 0 0
==== fCmd-10.4 FAILED
==== fCmd-10.6 file copy: comprehensive: dir to non-empty dir FAILED
==== Contents of test case:
cleanup
file mkdir tds1
file mkdir tds2
file mkdir [file join tdd1 tds1 xxx]
file mkdir [file join tdd2 tds2 xxx]
testchmod 555 tds2
set a1 [list [catch {file copy -force tds1 tdd1} msg] $msg]
set a2 [list [catch {file copy -force tds2 tdd2} msg] $msg]
list [lsort [glob td*]] $a1 $a2 [file writable tds1] [file writable tds2]
---- Result was:
{tdd1 tdd2 tds1 tds2} {1 {error copying "tds1" to "tdd1/tds1": file already exists}} {1 {error copying "tds2" to "tdd2/tds2": file already exists}} 1 1
---- Result should have been (exact matching):
{tdd1 tdd2 tds1 tds2} {1 {error copying "tds1" to "tdd1/tds1": file already exists}} {1 {error copying "tds2" to "tdd2/tds2": file already exists}} 1 0
==== fCmd-10.6 FAILED
==== fCmd-10.7 file rename: comprehensive: file to new name and dir FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
file mkdir td1
testchmod 444 tf2
file copy tf1 [file join td1 tf3]
file copy tf2 [file join td1 tf4]
list [lsort [glob tf*]] [lsort [glob -directory td1 t*]] [file writable [file join td1 tf3]] [file writable [file join td1 tf4]]
---- Result was:
{tf1 tf2} {td1/tf3 td1/tf4} 1 1
---- Result should have been (exact matching):
{tf1 tf2} {td1/tf3 td1/tf4} 1 0
==== fCmd-10.7 FAILED
==== fCmd-12.8 renamefile: generic error FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa
file mkdir tfa/dir
file attributes tfa -permissions 0555
set result [catch {file rename tfa/dir tfa2}]
file attributes tfa -permissions 0777
file delete -force tfa
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-12.8 FAILED
==== fCmd-13.1 TclCopyFilesCmd: -force option FAILED
==== Contents of test case:
catch {file delete -force -- tfa1}
set s [createfile tfa1]
file copy -force tfa1 tfa2
set result [expr [checkcontent tfa2 $s] && [checkcontent tfa1 $s]]
file delete tfa1 tfa2
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: error deleting "tfa2": directory not empty
while executing
"file delete tfa1 tfa2"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EEXIST {file already exists}
==== fCmd-13.1 FAILED
==== fCmd-13.2 TclCopyFilesCmd: -- option FAILED
==== Contents of test case:
catch {file delete -force -- tfa1}
set s [createfile -tfa1]
file copy -- -tfa1 tfa2
set result [expr [checkcontent tfa2 $s] && [checkcontent -tfa1 $s]]
file delete -- -tfa1 tfa2
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: error deleting "tfa2": directory not empty
while executing
"file delete -- -tfa1 tfa2"
("uplevel" body line 6)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX EEXIST {file already exists}
==== fCmd-13.2 FAILED
==== fCmd-13.3 TclCopyFilesCmd: bad option FAILED
==== Contents of test case:
catch {file delete -force -- tfa1}
set s [createfile tfa1]
set r1 [catch {file copy -x tfa1 tfa2}]
set result [expr $r1 && [checkcontent tfa1 $s] && ![file exists tfa2]]
file delete tfa1
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-13.3 FAILED
==== fCmd-14.8 copyfile: copy directory failing FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa/dir/a/b/c
file attributes tfa/dir -permissions 0000
set r1 [catch {file copy tfa tfa2}]
file attributes tfa/dir -permissions 0777
set result $r1
file delete -force tfa tfa2
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-14.8 FAILED
==== fCmd-16.9 error while deleting file FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa
createfile tfa/a
file attributes tfa -permissions 0555
set result [catch {file delete tfa/a }]
#######
####### If any directory in a tree that is being removed does not
####### have write permission, the process will fail!
####### This is also the case with "rm -rf"
#######
file attributes tfa -permissions 0777
file delete -force tfa
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-16.9 FAILED
==== fCmd-17.1 mkdir stat failing on target but not ENOENT FAILED
==== Contents of test case:
catch {file delete -force -- tfa1}
file mkdir tfa1
file attributes tfa1 -permissions 0555
set result [catch {file mkdir tfa1/tfa2}]
file attributes tfa1 -permissions 0777
file delete -force tfa1
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-17.1 FAILED
==== fCmd-19.2 rmdir error besides EEXIST FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa
file mkdir tfa/a
file attributes tfa -permissions 0555
set result [catch {file delete tfa/a}]
file attributes tfa -permissions 0777
file delete -force tfa
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-19.2 FAILED
==== fCmd-20.1 TraverseUnixTree : failure opening a subdirectory directory FAILED
==== Contents of test case:
catch {file delete -force -- tfa}
file mkdir tfa
file mkdir tfa/a
file attributes tfa/a -permissions 0000
set result [catch {file delete -force tfa}]
file attributes tfa/a -permissions 0777
file delete -force tfa
set result
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: could not set permissions for file "tfa/a": no such file or directory
while executing
"file attributes tfa/a -permissions 0777"
("uplevel" body line 7)
invoked from within
"uplevel 1 $script"
---- errorCode: POSIX ENOENT {no such file or directory}
==== fCmd-20.1 FAILED
fileName.test
fileSystem.test
for-old.test
for.test
foreach.test
format.test
get.test
history.test
http.test
==== http-3.3 http::geturl FAILED
==== Contents of test case:
set token [http::geturl $url]
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection timed out
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.3 FAILED
==== http-3.4 http::geturl FAILED
==== Contents of test case:
set token [http::geturl $url]
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection timed out
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 2)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.4 FAILED
==== http-3.5 http::geturl FAILED
==== Contents of test case:
http::config -proxyfilter selfproxy
set token [http::geturl $url]
http::config -proxyfilter http::ProxyRequired
http::data $token
---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: couldn't open socket: connection timed out
while executing
"http::geturl $url"
invoked from within
"set token [http::geturl $url]"
("uplevel" body line 3)
invoked from within
"uplevel 1 $script"
---- errorCode: NONE
==== http-3.5 FAILED
...... and keeps going on all night long........