diff options
| author | fvogel <fvogelnew1@free.fr> | 2021-04-12 21:09:09 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2021-04-12 21:09:09 (GMT) |
| commit | 09f629e99dedf758b646eb290a64ec7fc80addef (patch) | |
| tree | 45cc31211f94470b6b0fcf087f523610d9a4d731 /tests/textIndex.test | |
| parent | 3bd12138e37a4369aa0f615c7e75e5a9f8fef5cd (diff) | |
| download | tk-09f629e99dedf758b646eb290a64ec7fc80addef.zip tk-09f629e99dedf758b646eb290a64ec7fc80addef.tar.gz tk-09f629e99dedf758b646eb290a64ec7fc80addef.tar.bz2 | |
Let the newly introduced test textIndex-26.1 also test the -startline condition.
Diffstat (limited to 'tests/textIndex.test')
| -rw-r--r-- | tests/textIndex.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/textIndex.test b/tests/textIndex.test index a6efd88..4d509c9 100644 --- a/tests/textIndex.test +++ b/tests/textIndex.test @@ -972,9 +972,14 @@ test textIndex-26.1 {GetIndex restricts the returned index to -starline/-endline lappend res [.p2 index "end"] lappend res [.p2 index "end lineend"] lappend res [.p2 index "end display lineend"] + .p2 configure -startline 3 -endline {} + image create photo redsquare -width 5 -height 5 + redsquare put red -to 0 0 4 4 + .t2 image create 1.0 -image redsquare + lappend res [.p2 index redsquare] destroy .t2 .p2 set res -} {2.0 2.0 2.0} +} {2.0 2.0 2.0 1.0} # cleanup |