Fix the tetrahedron collision detection.

[spline3.git] / src / Tests / Grid.hs

diff --git a/src/Tests/Grid.hs b/src/Tests/Grid.hs
index 3cc316ae302771a7b80c12c8fdbca76fdcaba1a5..f94a519566c2efc6f37dcd9675b2a85ee7e32b3e 100644 (file)
--- a/src/Tests/Grid.hs
+++ b/src/Tests/Grid.hs
@@ -360,19 +360,15 @@ test_trilinear9x9x9_reproduced =
 --
 --   Example from before the fix:
 --
---   > b0 (tetrahedron12 c) p
---   -2.168404344971019e-18
 --   > b0 (tetrahedron15 c) p
 --   -3.4694469519536365e-18
 --
 test_tetrahedra_collision_sensitivity :: Assertion
 test_tetrahedra_collision_sensitivity =
-  assertTrue "tetrahedron collision tests aren't too sensitive" $
-             contains_point t12 p &&
+  assertTrue "tetrahedron collision tests isn't too sensitive" $
              contains_point t15 p
   where
-    g = make_grid 1 trilinear
+    g = make_grid 1 naturals_1d
     c = cube_at g 0 17 1
     p = (0, 16.75, 0.5) :: Point
-    t12 = tetrahedron12 c
     t15 = tetrahedron15 c