From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 6 Sep 2011 17:27:27 +0000 (-0400)
Subject: Fix the one failing test and its documentation.
X-Git-Tag: 0.0.1~151
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=89a8f8f3728c6e8730a37304708312b67bc23274;p=spline3.git

Fix the one failing test and its documentation.
---

diff --git a/src/Grid.hs b/src/Grid.hs
index d31ffab..893fe5c 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -365,18 +365,18 @@ test_trilinear9x9x9_reproduced =
 --
 --   Example from before the fix:
 --
---   > b0 (tetrahedron c 15) p
---   -3.4694469519536365e-18
+--   b1 (tetrahedron c 20) (0, 17.5, 0.5)
+--   -0.0
 --
 test_tetrahedra_collision_sensitivity :: Assertion
 test_tetrahedra_collision_sensitivity =
   assertTrue "tetrahedron collision tests isn't too sensitive" $
-             contains_point t15 p
+             contains_point t20 p
   where
     g = make_grid 1 naturals_1d
-    cube = cube_at g 0 17 1
-    p = (0, 16.75, 0.5) :: Point
-    t15 = tetrahedron cube 15
+    cube = cube_at g 0 18 0
+    p = (0, 17.5, 0.5) :: Point
+    t20 = tetrahedron cube 20
 
 
 prop_cube_indices_never_go_out_of_bounds :: Grid -> Gen Bool