X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTests%2FCardinal.hs;h=17860218dec1811280cabd20af5d1fc03f1bc1e8;hb=a2cc10f44d77965b97c21ba74aa2acb302cd8fe0;hp=c3f60e58c274c41555c1f8d4217c9ab890469223;hpb=7c648d2c1ca966c4ba1dfff08a13100f065d5dbf;p=spline3.git

diff --git a/src/Tests/Cardinal.hs b/src/Tests/Cardinal.hs
index c3f60e5..1786021 100644
--- a/src/Tests/Cardinal.hs
+++ b/src/Tests/Cardinal.hs
@@ -53,9 +53,9 @@ instance Arbitrary Cardinal where
 --   Zeilfelder, p. 87.  This test checks that the directions are
 --   rotated properly.  The order of the letters has to be just right
 --   since I haven't defined a proper Eq instance for Cardinals.
-test_c_tilde_2100_rotation_correct :: Test
+test_c_tilde_2100_rotation_correct :: Assertion
 test_c_tilde_2100_rotation_correct =
-    TestCase $ assertEqual "auto-rotate equals manual rotate" ((ccwz . ccwz . cwy) expr1) expr2
+    assertEqual "auto-rotate equals manual rotate" ((ccwz . ccwz . cwy) expr1) expr2
     where
       expr1 =
           (3/8)*I +
@@ -75,9 +75,6 @@ test_c_tilde_2100_rotation_correct =
           (1/96)*(FL + BR + FR + BL) +
           (1/192)*(FD + LD + RD + BD)
 
-cardinal_tests :: [Test]
-cardinal_tests = [test_c_tilde_2100_rotation_correct]
-
 -- | A list of all directions, sans the interior and composite types.
 all_directions :: [Cardinal]
 all_directions = [L, R, F, B, D, T, FL, FR, FD, FT,