X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTests%2FFunctionValues.hs;h=40d2502fceb1eb51dc09feab6e311eb20d5aedee;hb=26f0a2204a0bdb41b1d6aa5430544c404b77e638;hp=3694f03c5ba0aa6aa5c56df85b90eddb321a1939;hpb=9b9acc3fbb79d737a39a9f4def70621440933095;p=spline3.git

diff --git a/src/Tests/FunctionValues.hs b/src/Tests/FunctionValues.hs
index 3694f03..40d2502 100644
--- a/src/Tests/FunctionValues.hs
+++ b/src/Tests/FunctionValues.hs
@@ -82,9 +82,9 @@ instance Arbitrary FunctionValues where
 
 
 
-test_directions :: Test
+test_directions :: Assertion
 test_directions =
-    TestCase $ assertTrue "all direction functions work" (and equalities)
+    assertTrue "all direction functions work" (and equalities)
         where
           fvs = make_values trilinear 1 1 1
           equalities = [ interior fvs == 4,
@@ -114,6 +114,3 @@ test_directions =
                          back_left_top fvs == 3,
                          back_right_down fvs == 7,
                          back_right_top fvs == 15]
-
-function_values_tests :: [Test]
-function_values_tests = [test_directions]