From 2777f8b526f0019372874c38eb127e1d27371c87 Mon Sep 17 00:00:00 2001
From: rjohnson <rjohnson>
Date: Mon, 27 Jul 1998 17:21:02 +0000
Subject: added test for bbox on arcs in canvas

---
 tests/canvas.test | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/tests/canvas.test b/tests/canvas.test
index 786a29a..ea2ab9a 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -190,3 +190,15 @@ test canvas-7.1 {canvas widget vs hidden commands} {
     destroy .c
     list [winfo children .] [interp hidden]
 } [list {} $l]
+
+test canvas-8.1 {canvas arc bbox} {
+    catch {destroy .c}
+    canvas .c
+    .c create arc -100 10 100 210 -start 10 -extent 50 -style arc -tags arc1
+    set arcBox [.c bbox arc1]
+    .c create arc 100 10 300 210 -start 10 -extent 50 -style chord -tags arc2
+    set coordBox [.c bbox arc2]
+    .c create arc 300 10 500 210 -start 10 -extent 50 -style pieslice -tags arc3
+    set pieBox [.c bbox arc3]
+    list $arcBox $coordBox $pieBox
+} {{48 21 100 94} {248 21 300 94} {398 21 500 112}}
-- 
cgit v0.12