From 0ef0708322e51a6c0a8c283ec573d5f74cf03d58 Mon Sep 17 00:00:00 2001 From: dgp Date: Tue, 5 Jan 2010 18:59:08 +0000 Subject: Backport test to prove Tcl 8.4 is not buggy (2918610). --- tests/fileName.test | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) 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. -- cgit v0.12