X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTests%2FCardinal.hs;h=17860218dec1811280cabd20af5d1fc03f1bc1e8;hb=26f0a2204a0bdb41b1d6aa5430544c404b77e638;hp=450730da0b86eb849a8f8bc3110e9aee635516b0;hpb=ec2f7ca5bb3b0c41c62812cd725c62e731bb9902;p=spline3.git

diff --git a/src/Tests/Cardinal.hs b/src/Tests/Cardinal.hs
index 450730d..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,8 +75,6 @@ test_c_tilde_2100_rotation_correct =
           (1/96)*(FL + BR + FR + BL) +
           (1/192)*(FD + LD + RD + BD)
 
-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,