summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-12-20 22:16:36 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-12-20 22:16:36 (GMT)
commitf3e4c6787e4309d230f3d102105b2ebedf2d12ca (patch)
tree71a6edcc183da9b71c51961dcdf8ef3cda582b6e
parent801439653efba1124e5dc705bdcd018062719562 (diff)
downloadtk-f3e4c6787e4309d230f3d102105b2ebedf2d12ca.zip
tk-f3e4c6787e4309d230f3d102105b2ebedf2d12ca.tar.gz
tk-f3e4c6787e4309d230f3d102105b2ebedf2d12ca.tar.bz2
Test text-11a.41 now correctly written passes.
-rw-r--r--tests/text.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/text.test b/tests/text.test
index cdc14c0..2487df7 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -1115,18 +1115,18 @@ test text-11a.41 {"sync" "pendingsync" and <<WidgetViewSync>>} -setup {
}
bind .top.yt <<WidgetViewSync>> {lappend res Sync:%d}
.top.yt insert 1.0 $content
- update
+ vwait res ; # event dealt with by the event loop, with %d==0 i.e. we're out of sync
# ensure the test is relevant
- lappend res [.top.yt pendingsync]
- # - there is no more any pending sync after running 'sync'
+ lappend res "Pending:[.top.yt pendingsync]"
# - <<WidgetViewSync>> fires when sync returns if there was pending syncs
+ # - there is no more any pending sync after running 'sync'
.top.yt sync
- lappend res [.top.yt pendingsync]
- update
+ vwait res ; # event dealt with by the event loop, with %d==1 i.e. we're in sync again
+ lappend res "Pending:[.top.yt pendingsync]"
set res
} -cleanup {
destroy .top.yt .top
-} -result {Sync:0 1 0 Sync:1}
+} -result {Sync:0 Pending:1 Sync:1 Pending:0}
# edit, mark, scan, search, see, tag, window, xview and yview actions are tested elsewhere.