summaryrefslogtreecommitdiffstats
path: root/tests/fileName.test
diff options
context:
space:
mode:
authorashok <ashok>2016-07-07 06:30:58 (GMT)
committerashok <ashok>2016-07-07 06:30:58 (GMT)
commit0aa3b5113db3c6c750aa4bbcfdb657dec48c0de1 (patch)
tree6c02f8a6a858f357847f980c4f81293d9de187fb /tests/fileName.test
parent5afe70d02240e1acbe825478808f3ef27847c025 (diff)
downloadtcl-0aa3b5113db3c6c750aa4bbcfdb657dec48c0de1.zip
tcl-0aa3b5113db3c6c750aa4bbcfdb657dec48c0de1.tar.gz
tcl-0aa3b5113db3c6c750aa4bbcfdb657dec48c0de1.tar.bz2
Bugfix [5d7ea04580]. Treat .cmd and .ps1 files are executable on Windows.
Diffstat (limited to 'tests/fileName.test')
-rw-r--r--tests/fileName.test14
1 files changed, 8 insertions, 6 deletions
diff --git a/tests/fileName.test b/tests/fileName.test
index 51f00d1..a19bd1e 100644
--- a/tests/fileName.test
+++ b/tests/fileName.test
@@ -1468,14 +1468,16 @@ if {[testConstraint testsetplatform]} {
}
test filename-17.2 {windows specific glob with executable} -body {
makeDirectory execglob
- makeFile contents execglob/abc.exe
- makeFile contents execglob/abc.notexecutable
- glob -nocomplain -dir [temporaryDirectory]/execglob -tails -types x *
+ foreach ext {exe com cmd bat ps1 notexecutable} {
+ makeFile contents execglob/abc.$ext
+ }
+ lsort [glob -nocomplain -dir [temporaryDirectory]/execglob -tails -types x *]
} -constraints {win} -cleanup {
- removeFile execglob/abc.exe
- removeFile execglob/abc.notexecutable
+ foreach ext {exe com cmd bat ps1 notexecutable} {
+ removeFile execglob/abc.$ext
+ }
removeDirectory execglob
-} -result {abc.exe}
+} -result {abc.bat abc.cmd abc.com abc.exe abc.ps1}
test filename-17.3 {Bug 2571597} win {
set p /a
file pathtype $p