diff options
author | fvogel <fvogelnew1@free.fr> | 2018-11-17 15:17:33 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2018-11-17 15:17:33 (GMT) |
commit | 8ee89795932d592d7960dd2a822765f7501fcd5d (patch) | |
tree | bcda3436a92194c76d5793e858a7e009d65bea0e /tests/text.test | |
parent | a705839ae15b69c4e2eb9355c4749231e3938777 (diff) | |
download | tk-8ee89795932d592d7960dd2a822765f7501fcd5d.zip tk-8ee89795932d592d7960dd2a822765f7501fcd5d.tar.gz tk-8ee89795932d592d7960dd2a822765f7501fcd5d.tar.bz2 |
Add comments in text-11a.22 making it more easy to follow progress in the expected result buildind
Diffstat (limited to 'tests/text.test')
-rw-r--r-- | tests/text.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/text.test b/tests/text.test index 95e666a..988417e 100644 --- a/tests/text.test +++ b/tests/text.test @@ -3028,17 +3028,17 @@ test text-11a.22 {TextWidgetCmd procedure, "sync" option with -command} -setup { } .top.yt insert 1.0 $content # first case: line metrics calculation still running when launching 'sync -command' - lappend res [.top.yt pendingsync] + lappend res [.top.yt pendingsync] ; # {1} .top.yt sync -command [list set ::x 1] - lappend res $::x + lappend res $::x ; # {1 0} # now finish line metrics calculations while {[.top.yt pendingsync]} {update} - lappend res [.top.yt pendingsync] $::x + lappend res [.top.yt pendingsync] $::x ; # {1 0 0 1} # second case: line metrics calculation completed when launching 'sync -command' .top.yt sync -command [list set ::x 2] - lappend res $::x + lappend res $::x ; # {1 0 0 1 1} vwait ::x - lappend res $::x + lappend res $::x ; # {1 0 0 1 1 2} } -cleanup { destroy .top.yt .top } -result {1 0 0 1 1 2} |