diff options
author | fvogel <fvogelnew1@free.fr> | 2015-12-20 22:16:36 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2015-12-20 22:16:36 (GMT) |
commit | f3e4c6787e4309d230f3d102105b2ebedf2d12ca (patch) | |
tree | 71a6edcc183da9b71c51961dcdf8ef3cda582b6e | |
parent | 801439653efba1124e5dc705bdcd018062719562 (diff) | |
download | tk-f3e4c6787e4309d230f3d102105b2ebedf2d12ca.zip tk-f3e4c6787e4309d230f3d102105b2ebedf2d12ca.tar.gz tk-f3e4c6787e4309d230f3d102105b2ebedf2d12ca.tar.bz2 |
Test text-11a.41 now correctly written passes.
-rw-r--r-- | tests/text.test | 12 |
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. |