diff options
| author | hobbs <hobbs> | 2000-09-29 01:12:14 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-09-29 01:12:14 (GMT) |
| commit | 2b5867cf5037ab6d12b243adf9a162c045f8a645 (patch) | |
| tree | 01988500beb81dac701c8a1adc92a4da945ef3d0 /tests/fCmd.test | |
| parent | 02044b08025a0d58698e0781f9543061b4b61b93 (diff) | |
| download | tcl-2b5867cf5037ab6d12b243adf9a162c045f8a645.zip tcl-2b5867cf5037ab6d12b243adf9a162c045f8a645.tar.gz tcl-2b5867cf5037ab6d12b243adf9a162c045f8a645.tar.bz2 | |
* tests/fCmd.test (fCmd-6.20): corrected test to remove
c:/tcl8975@ after creating it.
* tests/fileName.test: cleaned up the testing of glob patterns for
c:/globTest (Windows) to directly create/remove directory.
Diffstat (limited to 'tests/fCmd.test')
| -rw-r--r-- | tests/fCmd.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index c6cf426..2e8d383 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: fCmd.test,v 1.8 2000/04/10 17:18:59 ericm Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.9 2000/09/29 01:12:14 hobbs Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -509,12 +509,13 @@ test fCmd-6.20 {CopyRenameOneFile: errno == EXDEV} {pcOnly} { catch {file delete -force c:/tcl8975@ d:/tcl8975@} file mkdir c:/tcl8975@ if [catch {file rename c:/tcl8975@ d:/}] { - list d:/tcl8975@ + set msg d:/tcl8975@ } else { set msg [glob c:/tcl8975@ d:/tcl8975@] file delete -force d:/tcl8975@ - set msg } + file delete -force c:/tcl8975@ + set msg } {d:/tcl8975@} test fCmd-6.21 {CopyRenameOneFile: copy/rename: S_ISDIR(source)} \ {unixOnly notRoot} { |