From: Michael Orlitzky Date: Wed, 31 Aug 2011 18:02:12 +0000 (-0400) Subject: Speed up the trilinear9x9x9 test. X-Git-Tag: 0.0.1~193 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=5749559a53da7936e4d5c3f2ef61c6c0d4176434;p=spline3.git Speed up the trilinear9x9x9 test. --- diff --git a/src/Tests/Grid.hs b/src/Tests/Grid.hs index e30ae4a..53b4683 100644 --- a/src/Tests/Grid.hs +++ b/src/Tests/Grid.hs @@ -191,6 +191,8 @@ test_zeros_reproduced = -- | Make sure we can reproduce a 9x9x9 trilinear from the 3x3x3 one. +-- Use (t <- tetrahedra c0) for a much slower but comprehensive +-- test. test_trilinear9x9x9_reproduced :: Assertion test_trilinear9x9x9_reproduced = assertTrue "trilinear 9x9x9 is reproduced correctly" $ @@ -198,7 +200,7 @@ test_trilinear9x9x9_reproduced = | i <- [0..8], j <- [0..8], k <- [0..8], - t <- tetrahedra c0, + t <- [head $ tetrahedra c0], let p = polynomial t, let i' = (fromIntegral i) * 0.5, let j' = (fromIntegral j) * 0.5,