823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
|
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
|
-
+
|
lappend res $err
lappend res [file exists file2]
testsimplefilesystem 0
file delete -force simplefile
file delete -force file2
cd $dir
set res
} {0 10 1 {error copying "simplefs:/simplefile" to "file2": file already exists} 0 10 1}
} {0 {} 1 {error copying "simplefs:/simplefile" to "file2": file already exists} 0 {} 1}
test filesystem-7.5 {cross-filesystem file copy with -force} {testsimplefilesystem unix} {
set dir [pwd]
cd [tcltest::temporaryDirectory]
set fout [open [file join simplefile] w]
puts -nonewline $fout "1234567890"
close $fout
testsimplefilesystem 1
|
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
|
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
|
-
+
|
lappend res $err
lappend res [file exists file2]
testsimplefilesystem 0
file delete -force simplefile
file delete -force file2
cd $dir
set res
} {0 10 1 {error copying "simplefs:/simplefile" to "file2": file already exists} 0 10 1}
} {0 {} 1 {error copying "simplefs:/simplefile" to "file2": file already exists} 0 {} 1}
test filesystem-7.6 {cross-filesystem dir copy with -force} testsimplefilesystem {
set dir [pwd]
cd [tcltest::temporaryDirectory]
file delete -force simpledir
file mkdir simpledir
file mkdir dir2
set fout [open [file join simpledir simplefile] w]
|