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)
commit048a4d7e224034d072341b7c9c633801ca9fa19b (patch)
tree216a9ee21cf2d5a864324f321268a22585d1313b /tests/cmdAH.test
parentc65f04435b80a065f992d534fcd8bfc9a5a0e8ef (diff)
downloadtcl-048a4d7e224034d072341b7c9c633801ca9fa19b.zip
tcl-048a4d7e224034d072341b7c9c633801ca9fa19b.tar.gz
tcl-048a4d7e224034d072341b7c9c633801ca9fa19b.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