summaryrefslogtreecommitdiffstats
path: root/tests/cmdAH.test
diff options
context:
space:
mode:
authorashok <ashok>2016-07-15 03:12:09 (GMT)
committerashok <ashok>2016-07-15 03:12:09 (GMT)
commitfd728782619c73ed3315ece29d4fe987d2f71c76 (patch)
tree216a9ee21cf2d5a864324f321268a22585d1313b /tests/cmdAH.test
parent2edc27460110b94f8b244189a3dc9033e1d6ce55 (diff)
downloadtcl-fd728782619c73ed3315ece29d4fe987d2f71c76.zip
tcl-fd728782619c73ed3315ece29d4fe987d2f71c76.tar.gz
tcl-fd728782619c73ed3315ece29d4fe987d2f71c76.tar.bz2
Fix docs and test failures. I had rolled back .PS1 (Powershell files) as being executable without fixing tests and docs.
Diffstat (limited to 'tests/cmdAH.test')
-rw-r--r--tests/cmdAH.test7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index 6418aae..b4ef605 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -882,9 +882,10 @@ test cmdAH-18.3 {Tcl_FileObjCmd: executable} {unix testchmod} {
} 1
test cmdAH-18.5 {Tcl_FileObjCmd: executable} -constraints {win} -body {
# On pc, must be a .exe, .com, etc.
- set x [file exe $gorpfile]
+ set x {}
set gorpexes {}
- foreach ext {exe com cmd bat ps1} {
+ foreach ext {exe com cmd bat} {
+ lappend x [file exe nosuchfile.$ext]
set gorpexe [makeFile foo gorp.$ext]
lappend gorpexes $gorpexe
lappend x [file exe $gorpexe] [file exe [string toupper $gorpexe]]
@@ -894,7 +895,7 @@ test cmdAH-18.5 {Tcl_FileObjCmd: executable} -constraints {win} -body {
foreach gorpexe $gorpexes {
removeFile $gorpexe
}
-} -result {0 1 1 1 1 1 1 1 1 1 1}
+} -result {0 1 1 0 1 1 0 1 1 0 1 1}
test cmdAH-18.6 {Tcl_FileObjCmd: executable} {} {
# Directories are always executable.
file exe $dirfile