diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-16 15:59:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-11-16 15:59:40 (GMT) |
| commit | fe8f0c596ee02b8811d1d2f4d23b8fdbb166a2ed (patch) | |
| tree | c97e96389c58ac76d16b27fe19ddb3689118e093 /tests/fileName.test | |
| parent | 74cee16544d00f49288f1819fb71e1c5c74ce5ad (diff) | |
| parent | 29606e4a7b43adb9f923fb5781d3b9a93d9ba1c8 (diff) | |
| download | tcl-gahr_ticket_e6f27aa56f.zip tcl-gahr_ticket_e6f27aa56f.tar.gz tcl-gahr_ticket_e6f27aa56f.tar.bz2 | |
merge trunkgahr_ticket_e6f27aa56f
Diffstat (limited to 'tests/fileName.test')
| -rw-r--r-- | tests/fileName.test | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index 51f00d1..387d844 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 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} test filename-17.3 {Bug 2571597} win { set p /a file pathtype $p |