+++ /dev/null
-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]