diff options
author | sebres <sebres@users.sourceforge.net> | 2018-11-22 14:16:51 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2018-11-22 14:16:51 (GMT) |
commit | 1cf15d2b4dfa14df45471804f579f5e4e1cbfae2 (patch) | |
tree | 6db90761464a8bb5655c9caff61fcc3579057886 /tests/winFile.test | |
parent | a27b61390990c4773c93bf87f132987b980a1582 (diff) | |
parent | fb0f0b6c373000a8893904c0eea7580fdc902d20 (diff) | |
download | tcl-1cf15d2b4dfa14df45471804f579f5e4e1cbfae2.zip tcl-1cf15d2b4dfa14df45471804f579f5e4e1cbfae2.tar.gz tcl-1cf15d2b4dfa14df45471804f579f5e4e1cbfae2.tar.bz2 |
merge 8.6
Diffstat (limited to 'tests/winFile.test')
-rw-r--r-- | tests/winFile.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/winFile.test b/tests/winFile.test index b2cdfa1..b288063 100644 --- a/tests/winFile.test +++ b/tests/winFile.test @@ -39,13 +39,14 @@ test winFile-1.4 {TclpGetUserHome} {win nonPortable} { test winFile-2.1 {TclpMatchFiles: case sensitivity} -constraints {win} -body { makeFile {} GlobCapS - list [glob -nocomplain GlobC*] [glob -nocomplain globc*] -} -cleanup { + set args [list -nocomplain -tails -directory [temporaryDirectory]] + list [glob {*}$args GlobC*] [glob {*}$args globc*]} -cleanup { removeFile GlobCapS } -result {GlobCapS GlobCapS} test winFile-2.2 {TclpMatchFiles: case sensitivity} -constraints {win} -body { makeFile {} globlower - list [glob -nocomplain globl*] [glob -nocomplain gLOBl*] + set args [list -nocomplain -tails -directory [temporaryDirectory]] + list [glob {*}$args globl*] [glob {*}$args gLOBl*] } -cleanup { removeFile globlower } -result {globlower globlower} |