tetrahedron_tests :: Test.Framework.Test
tetrahedron_tests =
testGroup "Tetrahedron Tests" [
+ tetrahedron1_geometry_tests,
tetrahedron2_geometry_tests,
- tc "volume (1)" test_volume1,
- tc "doesn't contain point (1)" test_doesnt_contain_point1,
tc "doesn't contain point (2)" test_doesnt_contain_point2,
tc "doesn't contain point (3)" test_doesnt_contain_point3,
tc "doesn't contain point (4)" test_doesnt_contain_point4,