From 81b4ffc7a593b7ae4d2e91d29ad6e5564b7c9548 Mon Sep 17 00:00:00 2001 From: fvogel Date: Wed, 8 Jun 2016 15:33:39 +0000 Subject: Added test case text-27.16a to guard against regressions regarding [6976e4b3b2] --- tests/text.test | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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] -- cgit v0.12