tetrahedron_tests :: Test.Framework.Test
tetrahedron_tests =
testGroup "Tetrahedron Tests" [
+ tetrahedron2_geometry_tests,
tc "volume (1)" test_volume1,
- tc "volume (2)" test_volume2,
- tc "contains point (1)" test_contains_point1,
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,