diff options
author | culler <culler> | 2017-12-03 04:20:38 (GMT) |
---|---|---|
committer | culler <culler> | 2017-12-03 04:20:38 (GMT) |
commit | 50e3b1dcd115332edb337a4a752c693b9680c7f1 (patch) | |
tree | 44d063b1794ad512b5ae3be4a62c4bd4e2f16240 /tests/bind.test | |
parent | 5cf1afc8bda65903f6d36e65ca4f60f646275675 (diff) | |
download | tk-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.test | 7 |
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 |