diff options
Diffstat (limited to 'test/Spec.hs')
-rw-r--r-- | test/Spec.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/Spec.hs b/test/Spec.hs new file mode 100644 index 0000000..0f46756 --- /dev/null +++ b/test/Spec.hs @@ -0,0 +1,20 @@ +import Test.Framework (defaultMain, testGroup) +import Test.Framework.Providers.QuickCheck2 (testProperty) + +import Test.QuickCheck + +main :: IO () +main = defaultMain tests + +tests = [ + testGroup "Sorting Group 1" [ + testProperty "prop1" prop1, + testProperty "prop2" prop2 + ] + ] + +prop1 b = b == False + where types = (b :: Bool) + +prop2 i = i == 42 + where types = (i :: Int) |