Remove the error that was triggering with very small arcs while still preventing NaN and Inf values to leak in the computations. Add a new test canvas-21.1 checking results for zero-length arcs.

1 files changed, 18 insertions, 0 deletions

diff --git a/tests/canvas.test b/tests/canvas.test
index e8dc332..dafce90 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -1040,6 +1040,24 @@ test canvas-20.3 {canvas image with subsample and zoom} -setup {
     image delete testimage
 } -result 1
 
+test canvas-21.1 {canvas very small arc} -setup {
+    catch {destroy .c}
+    canvas .c
+} -body {
+    # no Inf or NaN must be generated even for very small arcs
+    .c create arc 0 100 0 100 -height 100 -style arc -outline "" -tags arc1
+    set arcBox [.c bbox arc1]
+    .c create arc 0 100 0 100 -height 100 -style arc -outline blue -tags arc2
+    set outlinedArcBox [.c bbox arc2]
+    set coords [.c coords arc1]
+    set start [.c itemcget arc1 -start]
+    set extent [.c itemcget arc1 -extent]
+    set width [.c itemcget arc1 -width]
+    set height [.c itemcget arc1 -height]
+    list $arcBox $outlinedArcBox $coords $start $extent $width $height
+} -result {{-1 99 1 101} {-2 98 2 102} {0.0 100.0 0.0 100.0} 0.0 0.0 1.0 0.0}
+
+
 # cleanup
 imageCleanup
 cleanupTests