{-# OPTIONS_GHC -fno-warn-tabs #-}  -- Support tab indentation better, for a better default of no warning if tabs are used: https://dmitryfrank.com/articles/indent_with_tabs_align_with_spaces .
-- Enable warnings:
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

-- Test.hs.

{-# LANGUAGE Haskell2010 #-}

module Test.Immutaball.Test
	(
		main,
		testsMain,
		tests
	) where

--import Test.HUnit
--import Test.QuickCheck
import Test.Tasty
--import Test.Tasty.HUnit hiding ((@?=), assertBool)
--import Test.Tasty.QuickCheck

import qualified Test.Data.LabeledBinTree.Test
import qualified Test.Immutaball.Share.Math.Test
import qualified Test.Immutaball.Share.State.Test
import qualified Test.Immutaball.Share.Wire.Test

main :: IO ()
main = testsMain

testsMain :: IO ()
testsMain = defaultMain (tests False)

tests :: Bool -> TestTree
tests headless = testGroup "Immutaball" $
	[
		Test.Data.LabeledBinTree.Test.tests,
		Test.Immutaball.Share.Wire.Test.tests,
		Test.Immutaball.Share.State.Test.tests headless,
		Test.Immutaball.Share.Math.Test.tests
	]