Even more Tetrahedron de-dupe.

[spline3.git] / test / TestSuite.hs

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 3a0af8187c7417ef6bcb97f7fc92b46fabab7347..541694cd17980c4a062e82c52caad77a2a5bef0d 100644 (file)
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -53,13 +53,9 @@ misc_tests =
 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,
-      tc "doesn't contain point (5)" test_doesnt_contain_point5 ]
+      containment_tests ]
 
 -- | Defined so that my test names fit on one line.
 tp :: Test.QuickCheck.Testable a => Test.Framework.TestName -> a -> Test.Framework.Test