summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2010-01-05 18:58:12 (GMT)
committerdgp <dgp@users.sourceforge.net>2010-01-05 18:58:12 (GMT)
commit6c429a0ad16df02718539a22c3e9f8d9b92df937 (patch)
treeef190eb25737fc57bc8e1ba3c90d8835649e6857 /tests
parentaa97f95a4ce2d6977a8e82caf00674c5e83270ea (diff)
downloadtcl-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')
-rw-r--r--tests/fileName.test16
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