summaryrefslogtreecommitdiffstats
path: root/tests/bind.test
diff options
context:
space:
mode:
authorculler <culler>2021-04-28 15:56:04 (GMT)
committerculler <culler>2021-04-28 15:56:04 (GMT)
commit4d1967bac73880c706d9c1c5b11388e97a695faa (patch)
tree4368a13a4e911fcd6da053bed0fa7188b5ad9d64 /tests/bind.test
parent0512da3facc4560d40d97a359c4a1ecefbee4da5 (diff)
downloadtk-4d1967bac73880c706d9c1c5b11388e97a695faa.zip
tk-4d1967bac73880c706d9c1c5b11388e97a695faa.tar.gz
tk-4d1967bac73880c706d9c1c5b11388e97a695faa.tar.bz2
Deal with new test failures revealed by changing the order of the tests.
Diffstat (limited to 'tests/bind.test')
-rw-r--r--tests/bind.test5
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/bind.test b/tests/bind.test
index 7a075fe..f653f3e 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -1052,6 +1052,7 @@ test bind-13.45 {Tk_BindEvent procedure: error in script} -setup {
test bind-15.1 {MatchPatterns procedure, ignoring type mismatches} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
+ update idletasks
focus -force .t.f
update
} -body {
@@ -1068,6 +1069,7 @@ test bind-15.1 {MatchPatterns procedure, ignoring type mismatches} -setup {
test bind-15.2 {MatchPatterns procedure, ignoring type mismatches} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
+ update idletasks
focus -force .t.f
update
} -body {
@@ -1479,6 +1481,7 @@ test bind-15.26 {MatchPatterns procedure, reject a virtual event} -setup {
test bind-15.27 {MatchPatterns procedure, conflict resolution} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
+ update idletasks
focus -force .t.f
update
} -body {
@@ -1493,6 +1496,7 @@ test bind-15.27 {MatchPatterns procedure, conflict resolution} -setup {
test bind-15.28 {MatchPatterns procedure, conflict resolution} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
+ update idletasks
focus -force .t.f
update
} -body {
@@ -1507,6 +1511,7 @@ test bind-15.28 {MatchPatterns procedure, conflict resolution} -setup {
test bind-15.29 {MatchPatterns procedure, conflict resolution} -setup {
frame .t.f -class Test -width 150 -height 100
pack .t.f
+ update idletasks
focus -force .t.f
update
} -body {