summaryrefslogtreecommitdiffstats
path: root/tests/imgBmap.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-14 07:36:16 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2020-09-14 07:36:16 (GMT)
commit075429fc2cc7afc986bc3839feacf935c89ccbc7 (patch)
tree974fdecf07326f588f07e04256d91c98b2fde350 /tests/imgBmap.test
parent26d2f8ec042c3a1c076a64a8651aa88294ff6a0f (diff)
downloadtk-075429fc2cc7afc986bc3839feacf935c89ccbc7.zip
tk-075429fc2cc7afc986bc3839feacf935c89ccbc7.tar.gz
tk-075429fc2cc7afc986bc3839feacf935c89ccbc7.tar.bz2
Use consistant $idx < 0 in stead of $idx != -1 for checking index meaning 'not found'
Diffstat (limited to 'tests/imgBmap.test')
-rw-r--r--tests/imgBmap.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/imgBmap.test b/tests/imgBmap.test
index a2ebdfa..8da1742 100644
--- a/tests/imgBmap.test
+++ b/tests/imgBmap.test
@@ -503,8 +503,8 @@ test imageBmap-11.2 {ImgBmapDelete procedure} -body {
test imageBmap-12.1 {ImgBmapCmdDeletedProc procedure} -body {
image create bitmap i2 -file foo.bm -maskfile foo2.bm
rename i2 {}
- list [lsearch -exact [imageNames] i2] [catch {i2 foo} msg] $msg
-} -result {-1 1 {invalid command name "i2"}}
+ list [expr {i2 in [imageNames]}] [catch {i2 foo} msg] $msg
+} -result {0 1 {invalid command name "i2"}}
removeFile foo.bm
removeFile foo2.bm