summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2016-06-08 15:33:39 (GMT)
committerfvogel <fvogelnew1@free.fr>2016-06-08 15:33:39 (GMT)
commit81b4ffc7a593b7ae4d2e91d29ad6e5564b7c9548 (patch)
tree38aed787c31bf47b13b5693408562685ec3a5e6b
parenta703e6bbe026f5c46c230a40d0304ec787e88a31 (diff)
downloadtk-81b4ffc7a593b7ae4d2e91d29ad6e5564b7c9548.zip
tk-81b4ffc7a593b7ae4d2e91d29ad6e5564b7c9548.tar.gz
tk-81b4ffc7a593b7ae4d2e91d29ad6e5564b7c9548.tar.bz2
Added test case text-27.16a to guard against regressions regarding [6976e4b3b2]
-rw-r--r--tests/text.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test
index 0ec69d0..720afbe 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -6383,6 +6383,21 @@ test text-27.16 {-maxundo configuration option} -body {
} -cleanup {
destroy .t
} -result "line 1\n\n"
+test text-27.16a {undo configuration options with peers} -body {
+ text .t -undo 1 -autoseparators 0 -maxundo 100
+ .t peer create .tt
+ set res [.t cget -undo]
+ lappend res [.tt cget -undo]
+ lappend res [.t cget -autoseparators]
+ lappend res [.tt cget -autoseparators]
+ lappend res [.t cget -maxundo]
+ lappend res [.tt cget -maxundo]
+ .t insert end "The undo stack is common between peers"
+ lappend res [.t edit canundo]
+ lappend res [.tt edit canundo]
+} -cleanup {
+ destroy .t
+} -result {1 1 0 0 100 100 1 1}
test text-27.17 {bug fix 1536735 - undo with empty text} -body {
text .t -undo 1
set r [.t edit modified]