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 | 36c62445d01d7dc3398bb08c1d828673267b644b (patch) | |
tree | 71a6edcc183da9b71c51961dcdf8ef3cda582b6e /tests/text.test | |
parent | 176bf39ea175c9b537b3d00db70798928f872cfa (diff) | |
download | tk-36c62445d01d7dc3398bb08c1d828673267b644b.zip tk-36c62445d01d7dc3398bb08c1d828673267b644b.tar.gz tk-36c62445d01d7dc3398bb08c1d828673267b644b.tar.bz2 |
Test text-11a.41 now correctly written passes.
Diffstat (limited to 'tests/text.test')
-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. |