cga/TestMain.hs

58 lines
1.3 KiB
Haskell
Raw Normal View History

{-# OPTIONS_HADDOCK ignore-exports #-}
import Test.QuickCheck
2014-12-18 02:53:27 +00:00
import Test.MyPrelude
import Test.Vector
deepCheck :: Testable prop => prop -> IO ()
deepCheck = quickCheckWith (stdArgs { maxSuccess = 1000})
main :: IO ()
main = do
putStrLn "testing inRange:"
deepCheck inRangeProp1
deepCheck inRangeProp2
deepCheck inRangeProp3
deepCheck inRangeProp4
deepCheck inRangeProp5
2014-12-18 00:06:16 +00:00
deepCheck inRangeProp6
putStrLn "testing onPT:"
deepCheck onPTProp1
deepCheck onPTProp2
putStrLn "testing getAngle:"
deepCheck getAngleProp1
deepCheck getAngleProp2
deepCheck getAngleProp3
deepCheck getAngleProp4
deepCheck getAngleProp5
deepCheck getAngleProp6
2014-12-17 23:47:51 +00:00
deepCheck getAngleProp7
2014-12-17 18:37:28 +00:00
putStrLn "testing scalarProd:"
deepCheck scalarProdProp1
deepCheck scalarProdProp2
deepCheck scalarProdProp3
2014-12-17 18:53:03 +00:00
deepCheck scalarProdProp4
deepCheck scalarProdProp5
2014-12-17 23:47:51 +00:00
putStrLn "testing dimToSquare:"
deepCheck dimToSquareProp1
putStrLn "testing vecLength:"
deepCheck vecLengthProp1
putStrLn "testing pt2Vec:"
deepCheck pt2VecProp1
deepCheck pt2VecProp2
putStrLn "testing vec2Pt:"
deepCheck vec2PtProp1
deepCheck vec2PtProp2
putStrLn "testing vp2:"
deepCheck vp2Prop1
deepCheck vp2Prop2
putStrLn "testing det:"
deepCheck detProp1
2014-12-18 02:53:27 +00:00
putStrLn "testing splitBy"
deepCheck splitByProp1
deepCheck splitByProp2
deepCheck splitByProp3