Move the FunctionValues tests into the FunctionValues module.

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

diff --git a/src/Tests/FunctionValues.hs b/src/Tests/FunctionValues.hs
deleted file mode 100644 (file)
index 9cada35..0000000
--- a/src/Tests/FunctionValues.hs
+++ /dev/null
@@ -1,41 +0,0 @@
-module Tests.FunctionValues
-where
-
-import Test.HUnit
-
-import Assertions
-import Examples
-import FunctionValues
-
-test_directions :: Assertion
-test_directions =
-    assertTrue "all direction functions work" (and equalities)
-        where
-          fvs = make_values trilinear 1 1 1
-          equalities = [ interior fvs == 4,
-                         front fvs == 1,
-                         back  fvs == 7,
-                         left  fvs == 2,
-                         right fvs == 6,
-                         down  fvs == 3,
-                         top   fvs == 5,
-                         front_left fvs == 1,
-                         front_right fvs == 1,
-                         front_down fvs == 1,
-                         front_top fvs == 1,
-                         back_left fvs == 3,
-                         back_right fvs == 11,
-                         back_down fvs == 5,
-                         back_top fvs == 9,
-                         left_down fvs == 2,
-                         left_top fvs == 2,
-                         right_down fvs == 4,
-                         right_top fvs == 8,
-                         front_left_down fvs == 1,
-                         front_left_top fvs == 1,
-                         front_right_down fvs == 1,
-                         front_right_top fvs == 1,
-                         back_left_down fvs == 3,
-                         back_left_top fvs == 3,
-                         back_right_down fvs == 7,
-                         back_right_top fvs == 15]