X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTests%2FGrid.hs;h=53b468307bcfa9b4bc8da2c64274e3084f939eb5;hb=5749559a53da7936e4d5c3f2ef61c6c0d4176434;hp=e30ae4a6d4f124228eae0173e5e024f46fcb90ba;hpb=dee2b5197cb2eea8ec6e234a44d2ad5b3587302e;p=spline3.git

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,