1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{-# LANGUAGE NoImplicitPrelude #-}
module Main (main) where
import Prelude.Compat
import Test.Tasty (defaultMain, testGroup)
import qualified DataFamilies.Properties as DF
import qualified Properties
import qualified UnitTests
import qualified JSONTestSuite
import RFC8785
main :: IO ()
main = do
ioTests <- UnitTests.ioTests
jsTests <- JSONTestSuite.tests
let allTests = DF.tests : rfc8785Tests : Properties.tests : UnitTests.tests : jsTests : ioTests
defaultMain (testGroup "tests" allTests)
|
