From 4c1df68e201d11e82b3870a3020ad79728e6b700 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 20 Jan 2021 16:44:14 -0500 Subject: Property tests for calculateScore --- Biz/Test.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'Biz/Test.hs') 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 -- cgit v1.2.3