diff options
| author | dgp <dgp@users.sourceforge.net> | 2010-01-05 18:58:12 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2010-01-05 18:58:12 (GMT) |
| commit | 6c429a0ad16df02718539a22c3e9f8d9b92df937 (patch) | |
| tree | ef190eb25737fc57bc8e1ba3c90d8835649e6857 /tests/fileName.test | |
| parent | aa97f95a4ce2d6977a8e82caf00674c5e83270ea (diff) | |
| download | tcl-6c429a0ad16df02718539a22c3e9f8d9b92df937.zip tcl-6c429a0ad16df02718539a22c3e9f8d9b92df937.tar.gz tcl-6c429a0ad16df02718539a22c3e9f8d9b92df937.tar.bz2 | |
* generic/tclPathObj.c (TclPathPart): Correct inconsistency between
* tests/fileName.test (filename-14.31): the string rep and the intrep
of a path value created by [file rootname]. Thanks to Vitaly Magerya
for reporting. [Bug 2918610]
Diffstat (limited to 'tests/fileName.test')
| -rw-r--r-- | tests/fileName.test | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index 9fe9f34..3196295 100644 --- a/tests/fileName.test +++ b/tests/fileName.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: fileName.test,v 1.51.8.10 2009/10/28 16:45:54 kennykb Exp $ +# RCS: @(#) $Id: fileName.test,v 1.51.8.11 2010/01/05 18:58:12 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1348,6 +1348,20 @@ test filename-14.30 {Bug 2710920} {unixOrPc} { file rootname [lindex [lsort [glob globTest/*/]] 0] } globTest/a1/ +test filename-14.31 {Bug 2918610} -setup { + set d [makeDirectory foo] + makeFile {} bar.soom $d +} -body { + foreach fn [glob $d/bar.soom] { + set root [file rootname $fn] + close [open $root {WRONLY CREAT}] + } + llength [glob -directory $d *] +} -cleanup { + file delete -force $d/bar + removeFile bar.soom $d + removeDirectory foo +} -result 2 unset globname |