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]