diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-11-20 20:23:22 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-11-20 20:23:22 (GMT) |
| commit | 0e5ff410218f872fe9ff61301ffa96c489f0d788 (patch) | |
| tree | 8fcca2613014adb94efe8aa133f81695d268a2fe /tests/winFile.test | |
| parent | 23102369d18f15a160e508c36990054b67c5a446 (diff) | |
| download | tcl-0e5ff410218f872fe9ff61301ffa96c489f0d788.zip tcl-0e5ff410218f872fe9ff61301ffa96c489f0d788.tar.gz tcl-0e5ff410218f872fe9ff61301ffa96c489f0d788.tar.bz2 | |
win: fixes case sensitivity of glob test cases (winFile-2.*): current directory can be different as [temporaryDirectory] (if parameter `-tmpdir` specified).
Diffstat (limited to 'tests/winFile.test')
| -rw-r--r-- | tests/winFile.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/winFile.test b/tests/winFile.test index bfba9cf..d586e06 100644 --- a/tests/winFile.test +++ b/tests/winFile.test @@ -60,13 +60,15 @@ test winFile-1.4 {TclpGetUserHome} {win nt nonPortable} { test winFile-2.1 {TclpMatchFiles: case sensitivity} {win} { makeFile {} GlobCapS - set result [list [glob -nocomplain GlobC*] [glob -nocomplain globc*]] + set args [list -nocomplain -tails -directory [temporaryDirectory]] + set result [list [glob {*}$args GlobC*] [glob {*}$args globc*]] removeFile GlobCapS set result } {GlobCapS GlobCapS} test winFile-2.2 {TclpMatchFiles: case sensitivity} {win} { makeFile {} globlower - set result [list [glob -nocomplain globl*] [glob -nocomplain gLOBl*]] + set args [list -nocomplain -tails -directory [temporaryDirectory]] + set result [list [glob {*}$args globl*] [glob {*}$args gLOBl*]] removeFile globlower set result } {globlower globlower} |