Skip to content
Newer
Older
100644 13 lines (9 sloc) 371 Bytes
e5c71e5 @nominolo Add script+make target for running the test suite.
nominolo authored
1 module Main where
2
3 import Test.QuickCheck
4
5 import Scion.Inspect
6
7 check1000 :: Testable prop => String -> prop -> IO ()
8 check1000 s p = putStrLn ("> " ++ s) >> quickCheckWith stdArgs{ maxSuccess = 1000 } p
9
10 main = do
11 putStrLn "================================================"
12 putStrLn ">>> Running Test Suite"
13 check1000 "prop_invCmpOverlap" prop_invCmpOverlap
Something went wrong with that request. Please try again.