src/Tests/FunctionValues.hs

   1 module Tests.FunctionValues
   2 where
   3
   4 import Test.HUnit
   5
   6 import Assertions
   7 import Examples
   8 import FunctionValues
   9
  10 test_directions :: Assertion
  11 test_directions =
  12     assertTrue "all direction functions work" (and equalities)
  13         where
  14           fvs = make_values trilinear 1 1 1
  15           equalities = [ interior fvs == 4,
  16                          front fvs == 1,
  17                          back  fvs == 7,
  18                          left  fvs == 2,
  19                          right fvs == 6,
  20                          down  fvs == 3,
  21                          top   fvs == 5,
  22                          front_left fvs == 1,
  23                          front_right fvs == 1,
  24                          front_down fvs == 1,
  25                          front_top fvs == 1,
  26                          back_left fvs == 3,
  27                          back_right fvs == 11,
  28                          back_down fvs == 5,
  29                          back_top fvs == 9,
  30                          left_down fvs == 2,
  31                          left_top fvs == 2,
  32                          right_down fvs == 4,
  33                          right_top fvs == 8,
  34                          front_left_down fvs == 1,
  35                          front_left_top fvs == 1,
  36                          front_right_down fvs == 1,
  37                          front_right_top fvs == 1,
  38                          back_left_down fvs == 3,
  39                          back_left_top fvs == 3,
  40                          back_right_down fvs == 7,
  41                          back_right_top fvs == 15]