diff options
| author | hobbs <hobbs> | 2002-08-08 08:56:18 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-08-08 08:56:18 (GMT) |
| commit | 1d73c07b16f3304b87070edf4a7aee24a263402f (patch) | |
| tree | aeaa59f60f701e1b111d28a3ca390205142aa573 /tests/unixFCmd.test | |
| parent | 1e8d54aee72071673f69d387e8130f02b46934a7 (diff) | |
| download | tcl-1d73c07b16f3304b87070edf4a7aee24a263402f.zip tcl-1d73c07b16f3304b87070edf4a7aee24a263402f.tar.gz tcl-1d73c07b16f3304b87070edf4a7aee24a263402f.tar.bz2 | |
* tests/fCmd.test:
* tests/unixFCmd.test: updated tests for new link copy behavior.
* generic/tclFCmd.c (CopyRenameOneFile): changed the behavior to
follow links to endpoints and copy that file/directory instead of
just copying the surface link. This means that trying to copy a
link that has no endpoint (danling link) is an error.
[Patch #591647] (darley)
Diffstat (limited to 'tests/unixFCmd.test')
| -rw-r--r-- | tests/unixFCmd.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/unixFCmd.test b/tests/unixFCmd.test index 23e8752..408fe1e 100644 --- a/tests/unixFCmd.test +++ b/tests/unixFCmd.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: unixFCmd.test,v 1.14 2002/07/10 13:08:20 dkf Exp $ +# RCS: @(#) $Id: unixFCmd.test,v 1.15 2002/08/08 08:56:21 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -128,12 +128,13 @@ test unixFCmd-2.1 {TclpCopyFile: target exists: lstat(dst) == 0} \ file copy -force tf1 tf2 } {} test unixFCmd-2.2 {TclpCopyFile: src is symlink} {unixOnly notRoot} { + # copying links should end up with real files cleanup close [open tf1 a] file link -symbolic tf2 tf1 file copy tf2 tf3 file type tf3 -} {link} +} {file} test unixFCmd-2.3 {TclpCopyFile: src is block} {unixOnly notRoot} { cleanup set null "/dev/null" |