From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 2 Sep 2011 13:16:16 +0000 (-0400)
Subject: Add a new test group, slow_tests, that is run after all of the others.
X-Git-Tag: 0.0.1~180
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=commitdiff_plain;h=70120aad0e7b2126b81e8d444fd7591c4badd45f

Add a new test group, slow_tests, that is run after all of the others.
---

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 82e2870..66f592b 100644
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -41,8 +41,7 @@ grid_tests =
       tc "tetrahedra collision test isn't too sensitive"
          test_tetrahedra_collision_sensitivity,
       tc "trilinear reproduced" test_trilinear_reproduced,
-      tc "zeros reproduced" test_zeros_reproduced,
-      tc "trilinear9x9x9 reproduced" test_trilinear9x9x9_reproduced ]
+      tc "zeros reproduced" test_zeros_reproduced ]
 
 
 misc_tests :: Test.Framework.Test
@@ -206,7 +205,16 @@ tetrahedron_properties =
       tp "y rotation doesn't affect right" prop_y_rotation_doesnt_affect_right,
       tp "z rotation doesn't affect top" prop_z_rotation_doesnt_affect_top,
       tp "z rotation doesn't affect down" prop_z_rotation_doesnt_affect_down ]
-                 
+
+
+-- Do the slow tests last so we can stop paying attention.
+slow_tests :: Test.Framework.Test
+slow_tests =
+    testGroup "Slow Tests" [
+      tp "cube indices within bounds" prop_cube_indices_never_go_out_of_bounds,
+      tc "trilinear9x9x9 reproduced" test_trilinear9x9x9_reproduced ]
+
+
 tests :: [Test.Framework.Test]
 tests = [ cardinal_tests,
           function_values_tests,
@@ -222,4 +230,5 @@ tests = [ cardinal_tests,
 --          p78_25_properties,
           p79_26_properties,
           p79_27_properties,
-          p79_28_properties ]
+          p79_28_properties,
+          slow_tests ]