diff options
author | ashok <ashok> | 2016-07-07 06:30:58 (GMT) |
---|---|---|
committer | ashok <ashok> | 2016-07-07 06:30:58 (GMT) |
commit | 85d1666247031e3e951f4817797a6c3d205ed388 (patch) | |
tree | 6c02f8a6a858f357847f980c4f81293d9de187fb /tests/cmdAH.test | |
parent | bf0a1dc6c572e9b49cf0c55903f32caa66b00772 (diff) | |
download | tcl-85d1666247031e3e951f4817797a6c3d205ed388.zip tcl-85d1666247031e3e951f4817797a6c3d205ed388.tar.gz tcl-85d1666247031e3e951f4817797a6c3d205ed388.tar.bz2 |
Bugfix [5d7ea04580]. Treat .cmd and .ps1 files are executable on Windows.
Diffstat (limited to 'tests/cmdAH.test')
-rw-r--r-- | tests/cmdAH.test | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 64cfeba..f2f7f8c 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -879,19 +879,18 @@ test cmdAH-18.3 {Tcl_FileObjCmd: executable} {unix testchmod} { test cmdAH-18.5 {Tcl_FileObjCmd: executable} -constraints {win} -body { # On pc, must be a .exe, .com, etc. set x [file exe $gorpfile] - set gorpexe [makeFile foo gorp.exe] - lappend x [file exe $gorpexe] -} -cleanup { - removeFile $gorpexe -} -result {0 1} -test cmdAH-18.5.1 {Tcl_FileObjCmd: executable} -constraints {win} -body { - # 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]] + set gorpexes {} + foreach ext {exe com cmd bat ps1} { + set gorpexe [makeFile foo gorp.$ext] + lappend gorpexes $gorpexe + lappend x [file exe $gorpexe] [file exe [string toupper $gorpexe]] + } + set x } -cleanup { - removeFile $gorpexe -} -result {0 1} + foreach gorpexe $gorpexes { + removeFile $gorpexe + } +} -result {0 1 1 1 1 1 1 1 1 1 1} test cmdAH-18.6 {Tcl_FileObjCmd: executable} {} { # Directories are always executable. file exe $dirfile |