diff options
| author | fvogel <fvogel@noemail.net> | 2015-10-04 09:04:42 (GMT) |
|---|---|---|
| committer | fvogel <fvogel@noemail.net> | 2015-10-04 09:04:42 (GMT) |
| commit | cd7d214994e40dc2f9b41fad2bb2bfe5f391eb0f (patch) | |
| tree | 3f6de39fa985cc913d002206c7040312f1147baa /tests | |
| parent | 8a641263ce78cf02316a0c234ff4dbc5eec05f83 (diff) | |
| download | tk-cd7d214994e40dc2f9b41fad2bb2bfe5f391eb0f.zip tk-cd7d214994e40dc2f9b41fad2bb2bfe5f391eb0f.tar.gz tk-cd7d214994e40dc2f9b41fad2bb2bfe5f391eb0f.tar.bz2 | |
Fixed bug [1669632fff] case (v) - <<Clear>> is atomic
FossilOrigin-Name: d45961b1373b5af1b028d7bb66dd2460dc29483a
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/text.test | 20 |
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 |