X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTests%2FTetrahedron.hs;h=0d924527e17f8cc601cc9a045a7bf7134ed54b69;hb=4a7ea6313df073bfd41fd69552a338c7d7cd6f47;hp=0b525868c0db6c7eff0f44cd0f261e41002d9f60;hpb=4d695b8d0b05a02d562bdee3d2a1b98ce6a5e747;p=spline3.git diff --git a/src/Tests/Tetrahedron.hs b/src/Tests/Tetrahedron.hs index 0b52586..0d92452 100644 --- a/src/Tests/Tetrahedron.hs +++ b/src/Tests/Tetrahedron.hs @@ -34,8 +34,7 @@ tetrahedron1_geometry_tests = v2 = p2, v3 = p3, fv = empty_values, - precomputed_volume = 0, - number = 0 } + precomputed_volume = 0 } volume1 :: Assertion volume1 = @@ -70,8 +69,7 @@ tetrahedron2_geometry_tests = v2 = p2, v3 = p3, fv = empty_values, - precomputed_volume = 0, - number = 0 } + precomputed_volume = 0 } volume1 :: Assertion volume1 = assertEqual "volume1 is correct" True (vol ~= (1/3)) @@ -110,8 +108,7 @@ containment_tests = v2 = p2, v3 = p3, fv = empty_values, - precomputed_volume = 0, - number = 0 } + precomputed_volume = 0 } contained = contains_point t exterior_point @@ -126,8 +123,7 @@ containment_tests = v2 = p2, v3 = p3, fv = empty_values, - precomputed_volume = 0, - number = 0 } + precomputed_volume = 0 } contained = contains_point t exterior_point @@ -142,8 +138,7 @@ containment_tests = v2 = p2, v3 = p3, fv = empty_values, - precomputed_volume = 0, - number = 0 } + precomputed_volume = 0 } contained = contains_point t exterior_point @@ -158,8 +153,7 @@ containment_tests = v2 = p2, v3 = p3, fv = empty_values, - precomputed_volume = 0, - number = 0 } + precomputed_volume = 0 } contained = contains_point t exterior_point