summaryrefslogtreecommitdiffstats
path: root/tests/bind.test
diff options
context:
space:
mode:
authorculler <culler>2017-12-03 04:20:38 (GMT)
committerculler <culler>2017-12-03 04:20:38 (GMT)
commit50e3b1dcd115332edb337a4a752c693b9680c7f1 (patch)
tree44d063b1794ad512b5ae3be4a62c4bd4e2f16240 /tests/bind.test
parent5cf1afc8bda65903f6d36e65ca4f60f646275675 (diff)
downloadtk-50e3b1dcd115332edb337a4a752c693b9680c7f1.zip
tk-50e3b1dcd115332edb337a4a752c693b9680c7f1.tar.gz
tk-50e3b1dcd115332edb337a4a752c693b9680c7f1.tar.bz2
Modify the bind-15.23 test so the events left over in the ring buffer from bind-15.22 won't interfere with those generated in bind-15.23.
Diffstat (limited to 'tests/bind.test')
-rw-r--r--tests/bind.test7
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/bind.test b/tests/bind.test
index 03b9cb1..98f37ba 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -1400,14 +1400,13 @@ test bind-15.23 {MatchPatterns procedure, time wrap-around} -setup {
} -body {
bind .t.f <Double-1> {set x 1}
set x 0
- event generate .t.f <Button-1> -time -100
- event generate .t.f <Button-1> -time 500
- event generate .t.f <ButtonRelease-1>
+ event generate .t.f <Button-1> -time 1000
+ event generate .t.f <Button-1> -time 1600
+ event generate .t.f <ButtonRelease-1> -time 1500
return $x
} -cleanup {
destroy .t.f
} -result {0}
-
test bind-15.24 {MatchPatterns procedure, virtual event} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f