summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2004-05-17 10:38:22 (GMT)
committervincentdarley <vincentdarley>2004-05-17 10:38:22 (GMT)
commitca9f53824153cabd6f7cf69459b76b2abfff52db (patch)
treebede6f5bbb4c34cdd88124c5780d2fa5b5c1def3 /tests
parent5ba4b8df5392010f34479ed7234f95db76dcf672 (diff)
downloadtcl-ca9f53824153cabd6f7cf69459b76b2abfff52db.zip
tcl-ca9f53824153cabd6f7cf69459b76b2abfff52db.tar.gz
tcl-ca9f53824153cabd6f7cf69459b76b2abfff52db.tar.bz2
fix to case sensitive 'file executable' on Windows
Diffstat (limited to 'tests')
-rw-r--r--tests/cmdAH.test11
1 files changed, 10 insertions, 1 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 13bf01d..c66fc82 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.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: cmdAH.test,v 1.39 2004/04/06 08:45:04 dkf Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.40 2004/05/17 10:38:22 vincentdarley Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2.1
@@ -851,6 +851,15 @@ test cmdAH-18.5 {Tcl_FileObjCmd: executable} {winOnly testchmod} {
removeFile $gorpexe
set x
} {0 1}
+test cmdAH-18.5.1 {Tcl_FileObjCmd: executable} {winOnly testchmod} {
+ # On pc, must be a .exe, .com, etc.
+
+ set x [file exe $gorpfile]
+ set gorpexe [makeFile foo gorp.exe]
+ lappend x [file exe [string toupper $gorpexe]]
+ removeFile $gorpexe
+ set x
+} {0 1}
test cmdAH-18.6 {Tcl_FileObjCmd: executable} {testchmod} {
# Directories are always executable.