summaryrefslogtreecommitdiffstats
path: root/tests/text.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2015-10-04 09:04:42 (GMT)
committerfvogel <fvogelnew1@free.fr>2015-10-04 09:04:42 (GMT)
commit605af9dd39143e83428df6fd8c1f06955da799fa (patch)
tree3f6de39fa985cc913d002206c7040312f1147baa /tests/text.test
parent520dc94723941cbb70de8f216cb8dce3868bfa59 (diff)
downloadtk-605af9dd39143e83428df6fd8c1f06955da799fa.zip
tk-605af9dd39143e83428df6fd8c1f06955da799fa.tar.gz
tk-605af9dd39143e83428df6fd8c1f06955da799fa.tar.bz2
Fixed bug [1669632fff] case (v) - <<Clear>> is atomic
Diffstat (limited to 'tests/text.test')
-rw-r--r--tests/text.test20
1 files changed, 20 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test
index 4eeb8e4..023aedf 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -3254,6 +3254,26 @@ test text-25.21 {patch 1669632 (vii) - <<Undo>> shall not remove separators} -se
} -cleanup {
destroy .t
} -result "This WORLD is an example text"
+test text-25.22 {patch 1669632 (v) - <<Clear>> is atomic} -setup {
+ destroy .t
+} -body {
+ toplevel .top
+ pack [text .top.t -undo 1]
+ .top.t insert end "This is an example text"
+ .top.t edit reset
+ .top.t mark set insert 1.5
+ .top.t insert 1.5 "A"
+ update
+ focus -force .top.t
+ event generate .top.t <Delete>
+ event generate .top.t <Shift-Right>
+ event generate .top.t <<Clear>>
+ event generate .top.t <Delete>
+ event generate .top.t <<Undo>>
+ .top.t get 1.0 "1.0 lineend"
+} -cleanup {
+ destroy .t
+} -result "This A an example text"
test text-26.1 {bug fix - 624372, ControlUtfProc long lines} {
destroy .t