syndicate-2017/hs/test/Main.hs

28 lines
1.1 KiB
Haskell

{-# LANGUAGE FlexibleInstances #-}
module Main where
import Test.Framework
import Test.Framework.Providers.HUnit
import Test.Framework.Providers.QuickCheck2
import Syndicate.Dataspace.Trie.Tests.ESOP2016 as ESOP2016
import Syndicate.Dataspace.Trie.Tests.ESOP2016v2 as ESOP2016v2
import Syndicate.Dataspace.Trie.Tests.ESOP2016v3 as ESOP2016v3
import Syndicate.Dataspace.Trie.Tests.Prefix as Prefix
testOpts = (mempty :: TestOptions)
{ topt_maximum_generated_tests = Just 1000
, topt_maximum_unsuitable_generated_tests = Just 10000
}
runnerOpts = (mempty :: RunnerOptions) { ropt_test_options = Just testOpts }
runTests tests = defaultMainWithOpts tests runnerOpts
main = runTests
[ testGroup "ESOP2016" $ hUnitTestToTests ESOP2016.hUnitSuite
, testGroup "ESOP2016v2" $ hUnitTestToTests ESOP2016v2.hUnitSuite
, testGroup "ESOP2016v3" $ hUnitTestToTests ESOP2016v3.hUnitSuite
, testGroup "Prefix" [ testGroup "HUnit tests" $ hUnitTestToTests Prefix.hUnitSuite
, testGroup "QuickCheck tests" Prefix.quickCheckSuite
]
]