Artifact
0085cbe0d6a3a234d358033c1d8270a878f03f84:
Attachment "test.log" to
ticket [455021ffff]
added by
dgp
2001-08-29 23:48:14.
clover:unix: make runtest
if test ! -f tclsh; then make tclsh; else true; fi
cd dltest; PATH=..:/home/dgp/alpha/linux/bin:/home/dgp/Tcl:/home/dgp/Perl:/home/dgp/bin:/home/dgp/bin:/usr/local/bin:/bin:/usr/bin:/sbin:/usr/sbin:/usr/bin/X11:/usr/openwin/bin:/usr/games:. TCL_LIBRARY=../../library make
make[1]: Entering directory `/local/src/tcl/unix/dltest'
make[1]: Nothing to be done for `all'.
make[1]: Leaving directory `/local/src/tcl/unix/dltest'
gcc -pipe -rdynamic tclTestInit.o tclTest.o tclTestObj.o tclTestProcBodyObj.o tclThreadTest.o tclUnixTest.o -L/local/src/tcl/unix -ltcl8.4 -ldl -lieee -lm -lc \
-Wl,-rpath,/usr/local/lib -o tcltest
LD_LIBRARY_PATH=`pwd`:/home/dgp/alpha/linux/lib:/usr/local/lib:/usr/lib; export LD_LIBRARY_PATH; \
LIBPATH=`pwd`:; export LIBPATH; \
SHLIB_PATH=`pwd`:; export SHLIB_PATH; \
TCL_LIBRARY="/local/src/tcl/library"; export TCL_LIBRARY; \
./tcltest
% source ./../tests/fCmd.test
==== fCmd-1.1 TclFileRenameCmd FAILED
==== Contents of test case:
cleanup
createfile tf1
file rename tf1 tf2
glob tf*
---- Result was:
/tf2
---- Result should have been (exact matching):
tf2
==== fCmd-1.1 FAILED
==== fCmd-2.1 TclFileCopyCmd FAILED
==== Contents of test case:
cleanup
createfile tf1
file copy tf1 tf2
lsort [glob tf*]
---- Result was:
/tf1 /tf2
---- Result should have been (exact matching):
tf1 tf2
==== fCmd-2.1 FAILED
==== fCmd-4.1 TclFileMakeDirsCmd: make each dir: 1 dir FAILED
==== Contents of test case:
cleanup
file mkdir td1
glob td*
---- Result was:
/td1
---- Result should have been (exact matching):
td1
==== fCmd-4.1 FAILED
==== fCmd-4.2 TclFileMakeDirsCmd: make each dir: multiple dirs FAILED
==== Contents of test case:
cleanup
file mkdir td1 td2 td3
lsort [glob td*]
---- Result was:
/td1 /td2 /td3
---- Result should have been (exact matching):
td1 td2 td3
==== fCmd-4.2 FAILED
==== fCmd-5.3 TclFileDeleteCmd: 1 file FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
file mkdir td1
file delete tf2
glob tf* td*
---- Result was:
/tf1 /td1
---- Result should have been (exact matching):
tf1 td1
==== fCmd-5.3 FAILED
==== fCmd-6.4 CopyRenameOneFile: lstat(source) == 0 FAILED
==== Contents of test case:
cleanup
createfile tf1
file rename tf1 tf2
glob tf*
---- Result was:
/tf2
---- Result should have been (exact matching):
tf2
==== fCmd-6.4 FAILED
==== fCmd-6.5 CopyRenameOneFile: lstat(target) != 0 FAILED
==== Contents of test case:
cleanup
createfile tf1
file rename tf1 tf2
glob tf*
---- Result was:
/tf2
---- Result should have been (exact matching):
tf2
==== fCmd-6.5 FAILED
==== fCmd-6.9 CopyRenameOneFile: errno == ENOENT FAILED
==== Contents of test case:
cleanup
createfile tf1
file rename tf1 tf2
glob tf*
---- Result was:
/tf2
---- Result should have been (exact matching):
tf2
==== fCmd-6.9 FAILED
==== fCmd-6.12 CopyRenameOneFile: force != 0 FAILED
==== Contents of test case:
cleanup
createfile tf1
createfile tf2
file rename -force tf1 tf2
glob tf*
---- Result was:
/tf2
---- Result should have been (exact matching):
tf2
==== fCmd-6.12 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 0
---- 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 0
---- Result should have been (exact matching):
{td3 td4} 1 0
==== fCmd-9.4 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 0
---- 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 0 0
---- 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.8 file rename: comprehensive: dir to empty dir FAILED
==== Contents of test case:
# Under unix, you can rename a read-only directory, but you can't
# move it into another directory.
cleanup
file mkdir td1
file mkdir [file join td2 td1]
file mkdir tds1
file mkdir tds2
file mkdir tds3
file mkdir tds4
file mkdir [file join tdd1 tds1]
file mkdir [file join tdd2 tds2]
file mkdir [file join tdd3 tds3]
file mkdir [file join tdd4 tds4]
if {$tcl_platform(platform) != "unix" && $tcl_platform(platform) != "macintosh"} {
testchmod 555 tds3
testchmod 555 tds4
}
if {$tcl_platform(platform) != "macintosh"} {
testchmod 555 [file join tdd2 tds2]
testchmod 555 [file join tdd4 tds4]
}
set msg [list [catch {file rename td1 td2} msg] $msg]
file rename -force tds1 tdd1
file rename -force tds2 tdd2
file rename -force tds3 tdd3
file rename -force tds4 tdd4
if {$tcl_platform(platform) != "unix" && $tcl_platform(platform) != "macintosh"} {
set w3 [file writable [file join tdd3 tds3]]
set w4 [file writable [file join tdd4 tds4]]
} else {
set w3 0
set w4 0
}
list [lsort [glob td*]] $msg [file writable [file join tdd1 tds1]] [file writable [file join tdd2 tds2]] $w3 $w4
---- Result was:
{/td1 /td2 /tdd1 /tdd2 /tdd3 /tdd4} {1 {error renaming "td1" to "td2/td1": file already exists}} 1 1 0 0
---- Result should have been (exact matching):
{td1 td2 tdd1 tdd2 tdd3 tdd4} {1 {error renaming "td1" to "td2/td1": file already exists}} 1 1 0 0
==== fCmd-9.8 FAILED
==== fCmd-9.9 file rename: 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]
if {$tcl_platform(platform) != "unix" && $tcl_platform(platform) != "macintosh"} {
testchmod 555 tds2
}
set a1 [list [catch {file rename -force tds1 tdd1} msg] $msg]
set a2 [list [catch {file rename -force tds2 tdd2} msg] $msg]
if {$tcl_platform(platform) != "unix" && $tcl_platform(platform) != "macintosh"} {
set w2 [file writable tds2]
} else {
set w2 0
}
list [lsort [glob td*]] $a1 $a2 [file writable tds1] $w2
---- Result was:
{/tdd1 /tdd2 /tds1 /tds2} {1 {error renaming "tds1" to "tdd1/tds1": file already exists}} {1 {error renaming "tds2" to "tdd2/tds2": file already exists}} 1 0
---- Result should have been (exact matching):
{tdd1 tdd2 tds1 tds2} {1 {error renaming "tds1" to "tdd1/tds1": file already exists}} {1 {error renaming "tds2" to "tdd2/tds2": file already exists}} 1 0
==== fCmd-9.9 FAILED
==== fCmd-9.11 file rename: comprehensive: dir to new name and dir FAILED
==== Contents of test case:
cleanup
file mkdir td1
file mkdir td2
file mkdir td3
if {$tcl_platform(platform) != "unix" && $tcl_platform(platform) != "macintosh"} {
testchmod 555 td2
}
file rename td1 [file join td3 td3]
file rename td2 [file join td3 td4]
if {$tcl_platform(platform) != "unix" && $tcl_platform(platform) != "macintosh"} {
set w4 [file writable [file join td3 td4]]
} else {
set w4 0
}
list [lsort [glob td*]] [lsort [glob -directory td3 t*]] [file writable [file join td3 td3]] $w4
---- Result was:
/td3 {td3/td3 td3/td4} 1 0
---- Result should have been (exact matching):
td3 {td3/td3 td3/td4} 1 0
==== fCmd-9.11 FAILED
==== fCmd-9.14 file rename: comprehensive: dir into self FAILED
==== Contents of test case:
cleanup
file mkdir td1
list [glob td*] [list [catch {file rename td1 td1} msg] $msg]
---- Result was:
/td1 {1 {error renaming "td1" to "td1/td1": trying to rename a volume or move a directory into itself}}
---- Result should have been (exact matching):
td1 {1 {error renaming "td1" to "td1/td1": trying to rename a volume or move a directory into itself}}
==== fCmd-9.14 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 0
---- Result should have been (exact matching):
{tf1 tf2 tf3 tf4} tf1 tf2 1 0
==== fCmd-10.2 FAILED
==== fCmd-10.3 file copy: comprehensive: dir to new name FAILED
==== Contents of test case:
cleanup
file mkdir [file join td1 tdx]
file mkdir [file join td2 tdy]
testchmod 555 td2
file copy td1 td3
file copy td2 td4
set msg [list [lsort [glob td*]] [glob -directory td3 t*] [glob -directory td4 t*] [file writable td3] [file writable td4]]
if {$tcl_platform(platform) != "macintosh"} {
testchmod 755 td2
testchmod 755 td4
}
set msg
---- Result was:
{/td1 /td2 /td3 /td4} td3/tdx td4/tdy 1 0
---- Result should have been (exact matching):
{td1 td2 td3 td4} td3/tdx td4/tdy 1 0
==== fCmd-10.3 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 0 0
---- 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.5 file copy: comprehensive: dir to empty dir FAILED
==== Contents of test case:
cleanup
file mkdir td1
file mkdir [file join td2 td1]
file mkdir tds1
file mkdir tds2
file mkdir tds3
file mkdir tds4
file mkdir [file join tdd1 tds1]
file mkdir [file join tdd2 tds2]
file mkdir [file join tdd3 tds3]
file mkdir [file join tdd4 tds4]
if {$tcl_platform(platform) != "macintosh"} {
testchmod 555 tds3
testchmod 555 tds4
testchmod 555 [file join tdd2 tds2]
testchmod 555 [file join tdd4 tds4]
}
set a1 [list [catch {file copy td1 td2} msg] $msg]
set a2 [list [catch {file copy -force tds1 tdd1} msg] $msg]
set a3 [catch {file copy -force tds2 tdd2}]
set a4 [catch {file copy -force tds3 tdd3}]
set a5 [catch {file copy -force tds4 tdd4}]
list [lsort [glob td*]] $a1 $a2 $a3 $a4 $a5
---- Result was:
{/td1 /td2 /tdd1 /tdd2 /tdd3 /tdd4 /tds1 /tds2 /tds3 /tds4} {1 {error copying "td1" to "td2/td1": file already exists}} {1 {error copying "tds1" to "tdd1/tds1": file already exists}} 1 1 1
---- Result should have been (exact matching):
{td1 td2 tdd1 tdd2 tdd3 tdd4 tds1 tds2 tds3 tds4} {1 {error copying "td1" to "td2/td1": file already exists}} {1 {error copying "tds1" to "tdd1/tds1": file already exists}} 1 1 1
==== fCmd-10.5 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 0
---- 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 0
---- Result should have been (exact matching):
{tf1 tf2} {td1/tf3 td1/tf4} 1 0
==== fCmd-10.7 FAILED
==== fCmd-10.8 file rename: comprehensive: dir to new name and dir FAILED
==== Contents of test case:
cleanup
file mkdir td1
file mkdir td2
file mkdir td3
testchmod 555 td2
file copy td1 [file join td3 td3]
file copy td2 [file join td3 td4]
list [lsort [glob td*]] [lsort [glob -directory td3 t*]] [file writable [file join td3 td3]] [file writable [file join td3 td4]]
---- Result was:
{/td1 /td2 /td3} {td3/td3 td3/td4} 1 0
---- Result should have been (exact matching):
{td1 td2 td3} {td3/td3 td3/td4} 1 0
==== fCmd-10.8 FAILED
==== fCmd-18.10 TclFileRenameCmd: rename dir on top of a non-empty dir w/ -force FAILED
==== Contents of test case:
catch {file delete -force -- tfa tfad}
file mkdir tfa tfad/tfa/file
set r1 [catch {file rename -force tfa tfad}]
set result [expr $r1 && [file isdir tfa] && [file isdir tfad/tfa/file]]
file delete -force tfa tfad
set result
---- Result was:
0
---- Result should have been (exact matching):
1
==== fCmd-18.10 FAILED
fCmd.test: Total 216 Passed 180 Skipped 11 Failed 25
Number of tests skipped for each constraint:
1 95
1 knownBug
3 macOnly
1 pcOnly
5 xdev
