2015-07-12 19:41:47 +05:30
|
|
|
module Main where
|
2015-07-11 12:20:02 +05:30
|
|
|
|
2015-07-13 00:42:34 +05:30
|
|
|
import qualified Test.Tasty as Tasty
|
2015-07-11 12:20:02 +05:30
|
|
|
|
2015-07-13 00:42:34 +05:30
|
|
|
import qualified Hastron.Game.TestPlayer as Player
|
|
|
|
import qualified Hastron.TestUtils as Utils
|
2015-07-12 19:41:47 +05:30
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
main = Tasty.defaultMain tests
|
|
|
|
|
|
|
|
tests :: Tasty.TestTree
|
|
|
|
tests = Tasty.testGroup "Tests" [properties, unitTests]
|
|
|
|
|
|
|
|
unitTests :: Tasty.TestTree
|
|
|
|
unitTests = Tasty.testGroup "Unit Tests" [hUnitTests]
|
|
|
|
|
|
|
|
properties :: Tasty.TestTree
|
|
|
|
properties = Tasty.testGroup "Quickcheck properties" [ Utils.properties
|
2015-07-13 00:42:34 +05:30
|
|
|
, Player.properties
|
|
|
|
]
|
2015-07-12 19:41:47 +05:30
|
|
|
|
|
|
|
hUnitTests :: Tasty.TestTree
|
|
|
|
hUnitTests = Tasty.testGroup "HUnit unit tests" []
|