diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-11 07:28:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-11 07:28:14 (GMT) |
| commit | f796d623675cfb8a59b1c190470f785c61b90a8e (patch) | |
| tree | f50e689312394cf955d4247d6236507827fc2fcd /tests/httpTest.tcl | |
| parent | f5ac592def2fc9aed2314cfa3015e377247d599c (diff) | |
| download | tcl-f796d623675cfb8a59b1c190470f785c61b90a8e.zip tcl-f796d623675cfb8a59b1c190470f785c61b90a8e.tar.gz tcl-f796d623675cfb8a59b1c190470f785c61b90a8e.tar.bz2 | |
Use $index<0 in stead of $index==-1 consistantly
Diffstat (limited to 'tests/httpTest.tcl')
| -rw-r--r-- | tests/httpTest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/httpTest.tcl b/tests/httpTest.tcl index 4345845..7491fb4 100644 --- a/tests/httpTest.tcl +++ b/tests/httpTest.tcl @@ -153,7 +153,7 @@ proc httpTest::TestOverlaps {someResults n term msg badTrans notPiped} { set myStart [lsearch -exact $someResults [list B $i]] set myEnd [lsearch -exact $someResults [list $term $i]] - if {($myStart == -1 || $myEnd == -1)} { + if {($myStart < 0 || $myEnd < 0)} { set res "Cannot find positions of transaction $i" append msg $res \n Puts $res |