diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 09:27:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-17 09:27:44 (GMT) |
| commit | bc10bf6d03a6c8685c64e36a6095e289e2b1ef33 (patch) | |
| tree | d560f690b9bdd6294623904e6273d37b937a872e /tests | |
| parent | 32975bd346263a3ab1f6bcf46adadfdddd3ffe03 (diff) | |
| parent | e14285c3a1d7dd2d7407fda5a5c841ccb5cae488 (diff) | |
| download | tcl-bc10bf6d03a6c8685c64e36a6095e289e2b1ef33.zip tcl-bc10bf6d03a6c8685c64e36a6095e289e2b1ef33.tar.gz tcl-bc10bf6d03a6c8685c64e36a6095e289e2b1ef33.tar.bz2 | |
Change version number of http package from 2.9.5 -> 2.10.0a1, since it's different from the 2.9.5 version in Tcl 8.6.x.
Use "$idx >= 0" check in stead of "$idx > -1" everywhere.
Diffstat (limited to 'tests')
| -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 cc167a0..e1fd920 100644 --- a/tests/cmdAH.test +++ b/tests/cmdAH.test @@ -261,7 +261,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 |