summaryrefslogtreecommitdiffstats
path: root/tests/text.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2018-11-17 15:17:33 (GMT)
committerfvogel <fvogelnew1@free.fr>2018-11-17 15:17:33 (GMT)
commit8ee89795932d592d7960dd2a822765f7501fcd5d (patch)
treebcda3436a92194c76d5793e858a7e009d65bea0e /tests/text.test
parenta705839ae15b69c4e2eb9355c4749231e3938777 (diff)
downloadtk-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.test10
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}