use Double in tests instead of Float

See #281.
diagrams · Aug 5, 2016 · c05fda2 · c05fda2
1 parent eb619fa
commit c05fda2
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/test/Diagrams/Test/Direction.hs b/test/Diagrams/Test/Direction.hs
@@ -3,11 +3,11 @@
 module Diagrams.Test.Direction where
 
 
+import           Diagrams.Direction
+import           Diagrams.Prelude
+import           Instances
 import           Test.Tasty
 import           Test.Tasty.QuickCheck
-import           Diagrams.Prelude
-import           Diagrams.Direction
-import Instances
 
 tests :: TestTree
 tests = testGroup "Direction" [
@@ -16,9 +16,9 @@ tests = testGroup "Direction" [
          , testProperty "HasTheta subtraction yeilds same result as anglebetween" $
             (anglebetsub)
          , testProperty "anglebetweenDirs is commutative" $
-           \a b -> angleBetweenDirs (a :: Direction V2 Float) b =~ angleBetweenDirs b a
+           \a b -> angleBetweenDirs (a :: Direction V2 Double) b =~ angleBetweenDirs b a
          , testProperty "fromdirection does not effect angleBetweenDirs" $
-           \a b -> angleBetween (fromDirection (a  :: Direction V2 Float)) (fromDirection b) =~ angleBetweenDirs a b
+           \a b -> angleBetween (fromDirection (a  :: Direction V2 Double)) (fromDirection b) =~ angleBetweenDirs a b
 
 
 
@@ -28,7 +28,7 @@ if' :: Bool -> a -> a -> a
 if' True  x _ = x
 if' False _ y = y
 
-anglebetsub :: Direction V2 Float -> Direction V2 Float -> Bool
+anglebetsub :: Direction V2 Double -> Direction V2 Double -> Bool
 anglebetsub a b = (if' (abs (a ^.  _theta^.rad  - b ^. _theta^.rad) < pi)
                        (abs ((a ^.  _theta  ^-^ b ^. _theta)^.rad))
                        (2*pi - abs (a ^.  _theta^.rad  - b ^. _theta^.rad) ) =~ angleBetweenDirs a b ^.rad)