Speed up the trilinear9x9x9 test.

diff --git a/src/Tests/Grid.hs b/src/Tests/Grid.hs
index e30ae4a6d4f124228eae0173e5e024f46fcb90ba..53b468307bcfa9b4bc8da2c64274e3084f939eb5 100644 (file)
--- 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,