diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:20:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-01-28 10:20:18 (GMT) |
| commit | 4783238ac6511cd583bfa3a260ac34a2efc6c2ea (patch) | |
| tree | 83625ff4c5988988c3fd8fd0f6887e60be1ad308 | |
| parent | 04c6a58439791bd97566416b916a55094218cff2 (diff) | |
| download | tk-4783238ac6511cd583bfa3a260ac34a2efc6c2ea.zip tk-4783238ac6511cd583bfa3a260ac34a2efc6c2ea.tar.gz tk-4783238ac6511cd583bfa3a260ac34a2efc6c2ea.tar.bz2 | |
Two new testcases
| -rw-r--r-- | tests/canvas.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/canvas.test b/tests/canvas.test index 0ae63b4..d91d872 100644 --- a/tests/canvas.test +++ b/tests/canvas.test @@ -730,6 +730,22 @@ test canvas-15.19 "basic coords check: centimeters are larger than pixels" -setu set id [.c create rect 0 0 1cm 1cm] expr {[lindex [.c coords $id] 2]>1} } -result {1} +test canvas-15.20 {bug [237971ce]} -setup { + destroy .c + canvas .c +} -body { + set id [.c create line {0 0 50 50 100 50}] + .c insert $id end {200 200} + .c coords $id +} -result {0.0 0.0 50.0 50.0 100.0 50.0 200.0 200.0} +test canvas-15.21 {bug [237971ce]} -setup { + destroy .c + canvas .c +} -body { + set id [.c create poly {0 0 50 50 100 50}] + .c insert $id end {200 200} + .c coords $id +} -result {0.0 0.0 50.0 50.0 100.0 50.0 200.0 200.0} destroy .c test canvas-16.1 {arc coords check} -setup { |