summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2017-06-26 12:56:34 (GMT)
committerfvogel <fvogelnew1@free.fr>2017-06-26 12:56:34 (GMT)
commit84ef069edd615d0e09b0be93b26b9d9a0e6545fa (patch)
tree843cb9921ecfef998cc9299b3f428d349b7c33fd
parent04847e469db03faa027794a0aba5a111dd1d6990 (diff)
downloadtk-84ef069edd615d0e09b0be93b26b9d9a0e6545fa.zip
tk-84ef069edd615d0e09b0be93b26b9d9a0e6545fa.tar.gz
tk-84ef069edd615d0e09b0be93b26b9d9a0e6545fa.tar.bz2
Added test text-8.27 for non-regression against the crash [62c5b7a1d7]bug_62c5b7a1d7
-rw-r--r--tests/text.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/text.test b/tests/text.test
index edd2a6e..42b6114 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -1577,6 +1577,16 @@ test text-8.26 {TextWidgetCmd procedure, "replace" option crash} -setup {
} -cleanup {
destroy .tt
} -result {}
+test text-8.27 {TextWidgetCmd procedure, "replace" option crash} -setup {
+ text .tt
+} -body {
+ .tt insert 0.0 \na
+ for {set i 0} {$i < 2} {incr i} {
+ .tt replace 2.0 3.0 b
+ }
+} -cleanup {
+ destroy .tt
+} -result {}
test text-9.1 {TextWidgetCmd procedure, "get" option} -setup {