diff options
| author | vincentdarley <vincentdarley> | 2004-05-17 10:38:22 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2004-05-17 10:38:22 (GMT) |
| commit | ca9f53824153cabd6f7cf69459b76b2abfff52db (patch) | |
| tree | bede6f5bbb4c34cdd88124c5780d2fa5b5c1def3 /tests | |
| parent | 5ba4b8df5392010f34479ed7234f95db76dcf672 (diff) | |
| download | tcl-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.test | 11 |
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. |