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
