summaryrefslogtreecommitdiffstats
path: root/tests/textMark.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2012-02-18 21:55:28 (GMT)
committerfvogel <fvogelnew1@free.fr>2012-02-18 21:55:28 (GMT)
commit1487608db176d526e0c03938073340f5f2a068eb (patch)
treeb3a7813f9f7a65cfa210096ad03d36a777bc56e0 /tests/textMark.test
parent3ea0c8057eebd5bf0c51ec97477ef0715fb8d33b (diff)
downloadtk-1487608db176d526e0c03938073340f5f2a068eb.zip
tk-1487608db176d526e0c03938073340f5f2a068eb.tar.gz
tk-1487608db176d526e0c03938073340f5f2a068eb.tar.bz2
Bug-3487407: Weird text indicesbug_1630262
Diffstat (limited to 'tests/textMark.test')
-rw-r--r--tests/textMark.test7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/textMark.test b/tests/textMark.test
index c1138ac..67b9ae5 100644
--- a/tests/textMark.test
+++ b/tests/textMark.test
@@ -170,6 +170,13 @@ test textMark-6.4 {TkTextMarkNameToIndex, with mark outside -startline/-endline
.pt configure -startline {} -endline {}
.t mark unset mymark
} -result {1 {bad text index "mymark"} 1.0 1.0 1 {bad text index "mymark"} L 1 {bad text index "mymark"}}
+test textMark-6.5 {insert and current marks in an empty peer - bug 3487407} -body {
+ .t mark set insert 1.0
+ .t configure -start 5 -end 5
+ set res [.t index insert]
+} -cleanup {
+ .t configure -startline {} -endline {}
+} -result {1.0}
catch {eval {.t mark unset} [.t mark names]}
test textMark-7.1 {MarkFindNext - invalid mark name} haveCourier12 {