1 files changed, 13 insertions, 0 deletions
diff --git a/tests/textTag.test b/tests/textTag.test
index 34ce003..fed073a 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -404,6 +404,19 @@ test textTag-2.12 {TkTextTagCmd - "add" option} -constraints {
 } -cleanup {
     .t tag remove sel 1.0 end
 } -result {1.1 1.5 2.4 2.5}
+test textTag-2.14 {tag add before -startline - Bug 1615425} haveCourier12 {
+    text .tt
+    for {set i 1} {$i <10} {incr i} {
+        .tt insert end "Line $i\n"
+    }
+    .tt tag configure mytag -font {Courier 12 bold}
+    .tt peer create .ptt
+    .ptt configure -startline 3 -endline 7
+    # the test succeeds if next line does not crash
+    .tt tag add mytag 1.0 1.end
+    destroy .ptt .tt
+    set res 1
+} {1}
 
 
 test textTag-3.1 {TkTextTagCmd - "bind" option} -constraints {