summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2012-02-03 21:04:01 (GMT)
committerfvogel <fvogelnew1@free.fr>2012-02-03 21:04:01 (GMT)
commitbff83d76663bad240f5642260d60d34077bd97b4 (patch)
tree7b9b86a341b771bec975457fee60f506ddeda558
parentf376d1c99841e1edea5440aa66932d03e9b0e038 (diff)
downloadtk-bff83d76663bad240f5642260d60d34077bd97b4.zip
tk-bff83d76663bad240f5642260d60d34077bd97b4.tar.gz
tk-bff83d76663bad240f5642260d60d34077bd97b4.tar.bz2
Added test for bug 1615425
-rw-r--r--tests/textTag.test13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/textTag.test b/tests/textTag.test
index b112fc2..dcec25d 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -147,6 +147,19 @@ test textTag-2.13 {TkTextTagCmd - "add" option} haveCourier12 {
.t tag add sel 1.1 1.5 2.4
.t tag ranges sel
} {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}
catch {.t tag delete x}
test textTag-3.1 {TkTextTagCmd - "bind" option} haveCourier12 {