diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-20 16:44:14 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-22 08:00:27 -0500 |
| commit | 4c1df68e201d11e82b3870a3020ad79728e6b700 (patch) | |
| tree | 5c585c5a19c9cef8ad5752fc00d29000f1275e2c /Biz/Test.hs | |
| parent | 8b9ec04c25e2ddf34c9e0b925fb4283f40f54468 (diff) | |
Property tests for calculateScore
Diffstat (limited to 'Biz/Test.hs')
| -rw-r--r-- | Biz/Test.hs | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/Biz/Test.hs b/Biz/Test.hs index 6bd5acf..7f6da61 100644 --- a/Biz/Test.hs +++ b/Biz/Test.hs @@ -1,18 +1,21 @@ {-# LANGUAGE NoImplicitPrelude #-} +-- : dep tasty +-- : dep tasty-hunit +-- : dep tasty-quickcheck module Biz.Test ( Tree, group, unit, + prop, (@=?), ) where --- : dep tasty --- : dep tasty-hunit import qualified Test.Tasty as Tasty import Test.Tasty.HUnit ((@=?)) import qualified Test.Tasty.HUnit as HUnit +import qualified Test.Tasty.QuickCheck as QuickCheck type Tree = Tasty.TestTree @@ -21,3 +24,6 @@ group = Tasty.testGroup unit :: Tasty.TestName -> HUnit.Assertion -> Tasty.TestTree unit = HUnit.testCase + +prop :: QuickCheck.Testable a => Tasty.TestName -> a -> Tasty.TestTree +prop = QuickCheck.testProperty |