disabled a buggy test

noinia · Dec 22, 2024 · a81fee0 · a81fee0
1 parent b3ad2c0
commit a81fee0
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/hgeometry/test/ConvexHull/R3Spec.hs b/hgeometry/test/ConvexHull/R3Spec.hs
@@ -21,8 +21,9 @@ type R = RealNumber 5
 
 
 spec = describe "3D convex hull through duality tests " $ do
-         fit "single triangle" $ do
-           let tri = Triangle origin (Point3 10 0 1) (Point3 0 10 2 :: Point 3 R)
-           Dual.facets (traceShowWith ("hull",) $ Dual.upperHull tri) `shouldBe` []
+         pure ()
+         -- fit "single triangle" $ do
+         --   let tri = Triangle origin (Point3 10 0 1) (Point3 0 10 2 :: Point 3 R)
+           -- Dual.facets (traceShowWith ("hull",) $ Dual.upperHull tri) `shouldBe` []
            -- FIXME: This is actually incorrect. I think it should be the thing below:
            -- Dual.facets (traceShowWith ("hull",) $ Dual.upperHull tri) `shouldBe` [toNonEmpty tri]