summaryrefslogtreecommitdiffstats
path: root/tests/fileName.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2010-01-05 18:59:08 (GMT)
committerdgp <dgp@users.sourceforge.net>2010-01-05 18:59:08 (GMT)
commit0ef0708322e51a6c0a8c283ec573d5f74cf03d58 (patch)
tree68977654e9bd1cf4731006f0a2414fd6e13f5bdb /tests/fileName.test
parentd409a9b06588b300731c036cac349d30b8980bb5 (diff)
downloadtcl-0ef0708322e51a6c0a8c283ec573d5f74cf03d58.zip
tcl-0ef0708322e51a6c0a8c283ec573d5f74cf03d58.tar.gz
tcl-0ef0708322e51a6c0a8c283ec573d5f74cf03d58.tar.bz2
Backport test to prove Tcl 8.4 is not buggy (2918610).
Diffstat (limited to 'tests/fileName.test')
-rw-r--r--tests/fileName.test17
1 files changed, 16 insertions, 1 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index 32516a4..ab65964 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.30.2.16 2009/08/21 18:31:23 dgp Exp $
+# RCS: @(#) $Id: fileName.test,v 1.30.2.17 2010/01/05 18:59:08 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -1873,6 +1873,21 @@ 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
# The following tests are only valid for Unix systems.