diff options
author | fvogel <fvogelnew1@free.fr> | 2019-10-10 18:54:34 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2019-10-10 18:54:34 (GMT) |
commit | 3ed1e4db82e157c08aed7169d082c940c66a7edb (patch) | |
tree | 4636ac386acab26ab29a12f7ce92d0229615a17c /tests | |
parent | 22c0838d14ecb72a77398d446537fdc313666811 (diff) | |
download | tk-3ed1e4db82e157c08aed7169d082c940c66a7edb.zip tk-3ed1e4db82e157c08aed7169d082c940c66a7edb.tar.gz tk-3ed1e4db82e157c08aed7169d082c940c66a7edb.tar.bz2 |
Add debug info useful in case bind-32.2 fails
Diffstat (limited to 'tests')
-rw-r--r-- | tests/bind.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/bind.test b/tests/bind.test index 25e7652..b0a0948 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -6160,7 +6160,7 @@ test bind-32.2 {-warp works relatively to a window} -setup { set res 1 foreach pos1 $pointerPos1 pos2 $pointerPos2 { if {$pos1 != [expr {$pos2 - 400}]} { - set res 0 + set res [list $pointerPos1 $pointerPos2] } } set res |