Fix [1f3de1c387]: Redundant [expr] in tests.

tests/bind.test

@@ -6857,7 +6857,7 @@ test bind-34.1 {-warp works relatively to a window} -setup {
     # pointer should have moved the same amount as the window moved
     set res 1
     foreach pos1 $pointerPos1 pos2 $pointerPos2 {
-        if {$pos1 != [expr {$pos2 - 400}]} {
+        if {$pos1 != ($pos2 - 400)} {
             set res [list $pointerPos1 $pointerPos2]
         }
     }

tests/event.test

@@ -804,7 +804,7 @@ test event-8 {event generate with keysyms corresponding to
     # (system-independent) known keysym, unless the system
     # running the test does not have a keyboard with a
     # diaeresis key.
-    if {[expr {[lindex $res 3] ne "??"}]} {
+    if {[lindex $res 3] ne "??"} {
         # keyboard has a physical diaeresis key and bug is fixed
         return "OK"
     } else  {

tests/textDisp.test

@@ -2222,7 +2222,7 @@ update
 set totpix [.t count -update -ypixels 1.0 end]
 # check that the wrapping lines wrap exactly 6 times in total (4 times for line 151, and twice for line 153),
 # this is an assumption of the upcoming tests
-if {[expr {double(($totpix-5*$heightDiff)/$fixedHeight)}] != 206.0} {
+if {double(($totpix-5*$heightDiff)/$fixedHeight) != 206.0} {
     puts "---> Warning: the font actually used by the tests, which is \"[font actual [.t cget -font]]\",\
 is too different from the requested \"[.t cget -font]\". Some of the upcoming tests will probably fail."
 }