X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTests%2FFunctionValues.hs;fp=src%2FTests%2FFunctionValues.hs;h=0000000000000000000000000000000000000000;hb=1f20ae355d28b53fc2e1e31c4bd131e9ede00a87;hp=9cada35a30c670723af1e1c26f06a8a90b1fe834;hpb=dd58892d526586bc436b88d18a54b954be032761;p=spline3.git diff --git a/src/Tests/FunctionValues.hs b/src/Tests/FunctionValues.hs deleted file mode 100644 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]