From 70120aad0e7b2126b81e8d444fd7591c4badd45f Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Fri, 2 Sep 2011 09:16:16 -0400 Subject: [PATCH] Add a new test group, slow_tests, that is run after all of the others. --- test/TestSuite.hs | 17 +++++++++++++---- 1 file changed, 13 insertions(+), 4 deletions(-) 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 ] -- 2.43.2