Finish moving the tests to test-framework.

[spline3.git] / src / Tests / FunctionValues.hs

diff --git a/src/Tests/FunctionValues.hs b/src/Tests/FunctionValues.hs
index 3694f03c5ba0aa6aa5c56df85b90eddb321a1939..40d2502fceb1eb51dc09feab6e311eb20d5aedee 100644 (file)
--- 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]