diff options
author | ashok <ashok> | 2016-07-15 03:12:09 (GMT) |
---|---|---|
committer | ashok <ashok> | 2016-07-15 03:12:09 (GMT) |
commit | fd728782619c73ed3315ece29d4fe987d2f71c76 (patch) | |
tree | 216a9ee21cf2d5a864324f321268a22585d1313b /tests/cmdAH.test | |
parent | 2edc27460110b94f8b244189a3dc9033e1d6ce55 (diff) | |
download | tcl-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.test | 7 |
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 |