diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 09:31:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 09:31:16 (GMT) |
| commit | 0a36b1187dcef39b41d28a5ce319aa7c54f56f66 (patch) | |
| tree | ebf27488f191f5ad74f527ac6c557710f5505d32 /tests/cmdAH.test | |
| parent | c11add7a17f78e2ec40ede65aed3e0d1485062e1 (diff) | |
| parent | bc10bf6d03a6c8685c64e36a6095e289e2b1ef33 (diff) | |
| download | tcl-0a36b1187dcef39b41d28a5ce319aa7c54f56f66.zip tcl-0a36b1187dcef39b41d28a5ce319aa7c54f56f66.tar.gz tcl-0a36b1187dcef39b41d28a5ce319aa7c54f56f66.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/cmdAH.test')
| -rw-r--r-- | tests/cmdAH.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/cmdAH.test b/tests/cmdAH.test index 20d75e1..8575a47 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -255,7 +255,7 @@ test cmdAH-6.3 {Tcl_FileObjCmd: volumes} -constraints unix -body { test cmdAH-6.4 {Tcl_FileObjCmd: volumes} -constraints win -body { set volumeList [string tolower [file volumes]] set element [lsearch -exact $volumeList "c:/"] - list [expr {$element>-1}] [glob -nocomplain [lindex $volumeList $element]*] + list [expr {$element>=0}] [glob -nocomplain [lindex $volumeList $element]*] } -match glob -result {1 *} # attributes |