diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-08-29 12:31:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-08-29 12:31:41 (GMT) |
| commit | 8a165192c2d08763b9540f35e9f2cb4f521b5f5f (patch) | |
| tree | cc57fe4b69c24d163afdafa622ef932fa87a475f /tests/canvRect.test | |
| parent | 9900ef4bf9c3880f8d01968600aa70ab2897b8a6 (diff) | |
| parent | d1ffebb971d9a844511bf96c8c734b96c0b75424 (diff) | |
| download | tk-8a165192c2d08763b9540f35e9f2cb4f521b5f5f.zip tk-8a165192c2d08763b9540f35e9f2cb4f521b5f5f.tar.gz tk-8a165192c2d08763b9540f35e9f2cb4f521b5f5f.tar.bz2 | |
rebase to core-8-6-branch.
should now work with TCL_UTF_MAX=4 and TCL_UTF_MAX=6 (not yet with TCL_UTF_MAX=3)
Diffstat (limited to 'tests/canvRect.test')
| -rw-r--r-- | tests/canvRect.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/canvRect.test b/tests/canvRect.test index ec59e8b..a2cc51c 100644 --- a/tests/canvRect.test +++ b/tests/canvRect.test @@ -228,7 +228,7 @@ test canvRect-6.2 {RectToPoint procedure} -body { [expr {[.c find closest 20 25.1] eq $yId}] \ [expr {[.c find closest 20 29.9] eq $yId}] \ [expr {[.c find closest 20 30.1] eq $xId}] - + } -cleanup { .c delete all } -result {1 1 1 1} @@ -250,7 +250,7 @@ test canvRect-6.4 {RectToPoint procedure} -body { list [expr {[.c find closest 20 24.4] eq $xId}] \ [expr {[.c find closest 20 24.6] eq $yId}] \ [expr {[.c find closest 20 30.4] eq $yId}] \ - [expr {[.c find closest 20 30.6] eq $xId}] + [expr {[.c find closest 20 30.6] eq $xId}] } -cleanup { .c delete all } -result {1 1 1 1} @@ -275,18 +275,18 @@ test canvRect-6.6 {RectToPoint procedure} -body { list [expr {[.c find closest 20 23.2] eq $xId}] \ [expr {[.c find closest 20 23.3] eq $yId}] \ [expr {[.c find closest 20 31.7] eq $yId}] \ - [expr {[.c find closest 20 31.8] eq $xId}] + [expr {[.c find closest 20 31.8] eq $xId}] } -cleanup { .c delete all } -result {1 1 1 1} - + test canvRect-6.7 {RectToPoint procedure} -body { - set xId [.c create rectangle 10 20 30 40 -outline {} -fill black] + set xId [.c create rectangle 10 20 30 40 -outline {} -fill black] set yId [.c create rectangle 40 40 50 50 -outline {} -fill black] list [expr {[.c find closest 35 35] eq $xId}] \ [expr {[.c find closest 36 36] eq $yId}] \ [expr {[.c find closest 37 37] eq $yId}] \ - [expr {[.c find closest 38 38] eq $yId}] + [expr {[.c find closest 38 38] eq $yId}] } -cleanup { .c delete all } -result {1 1 1 1} |