X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=test%2FTestSuite.hs;h=bac18ec2365b27038a9a55428d0160b5070009d0;hp=4a0b405695247a6d9d440cd9a87f3e1439d350ba;hb=fd3d394c27e3a90de8238b98bd112c4fe3468ee0;hpb=298bc053766c01525617c0910aa5acdee9f11ec7

diff --git a/test/TestSuite.hs b/test/TestSuite.hs
index 4a0b405..bac18ec 100644
--- a/test/TestSuite.hs
+++ b/test/TestSuite.hs
@@ -40,16 +40,6 @@ main = do
   defaultMainWithOpts tests my_runner_opts
 
 
--- | Defined so that my test names fit on one line.
-tc :: Test.Framework.Providers.API.TestName -> Test.HUnit.Assertion -> Test.Framework.Test
-tc = testCase
-
-
--- | Defined so that my test names fit on one line.
-tp :: Test.QuickCheck.Testable a => Test.Framework.TestName -> a -> Test.Framework.Test
-tp = testProperty
-
-
 tests :: [Test.Framework.Test]
 tests = [ cardinal_tests,
           function_values_tests,
@@ -58,6 +48,6 @@ tests = [ cardinal_tests,
           tetrahedron_tests,
           cube_properties,
           tetrahedron_properties,
-          misc_properties,          
+          misc_properties,
           cardinal_properties,
           slow_tests ]