From 4af06dc4e76248c2acf90fed6cf5b70032e796c4 Mon Sep 17 00:00:00 2001
From: "Jarl K. Holta" <jarlholta@gmail.com>
Date: Wed, 18 Dec 2024 18:44:06 +0100
Subject: [PATCH] Update test - allow slack in MinAreaCircle

---
 Tests/tpa_minareacircle.simba | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/Tests/tpa_minareacircle.simba b/Tests/tpa_minareacircle.simba
index abe1fc25b..84430a476 100644
--- a/Tests/tpa_minareacircle.simba
+++ b/Tests/tpa_minareacircle.simba
@@ -18,11 +18,8 @@ begin
   for I := 0 to High(ATPA) do
   begin
     C := ATPA[I].MinAreaCircle();
-    Assert(C = expected[i]);
-    Assert(Round(ATPA[I].Circularity()*100) = expectedCircularity[I]);
-
-    //img.DrawCircle(C, 255);
-    //img.DrawText('%.2f'.Format([ATPA[I].Circularity()]), C.Bounds, True, 255);
+    Assert(Abs(C.Radius - expected[i].Radius) <= 1);
+    Assert(Abs(ATPA[I].Circularity()*100 - expectedCircularity[I]) <= 1);
   end;
 
   //img.Show();