From: Michael Orlitzky <michael@orlitzky.com>
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,