-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,
back_left_top fvs == 3,
back_right_down fvs == 7,
back_right_top fvs == 15]
-
-function_values_tests :: [Test]
-function_values_tests = [test_directions]