From 89a8f8f3728c6e8730a37304708312b67bc23274 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Tue, 6 Sep 2011 13:27:27 -0400 Subject: [PATCH] Fix the one failing test and its documentation. --- src/Grid.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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 -- 2.43.2