X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=test%2FTestSuite.hs;h=541694cd17980c4a062e82c52caad77a2a5bef0d;hb=e8548729a23fff0250e69fb1b3699672413f14c8;hp=3d058e457c18e9c0906ea90003585514b6eab864;hpb=117bfdb3e54a83a4898fddd45960d6260fe1d8bb;p=spline3.git

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 3d058e4..541694c 100644
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -55,10 +55,7 @@ tetrahedron_tests =
     testGroup "Tetrahedron Tests" [
       tetrahedron1_geometry_tests,
       tetrahedron2_geometry_tests,
-      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