urbit/pkg/king/test/Main.hs
2019-09-17 20:33:38 -07:00

31 lines
712 B
Haskell

module Main (main) where
import ClassyPrelude
import Test.QuickCheck hiding ((.&.))
import Test.Tasty
import Test.Tasty.QuickCheck
import Test.Tasty.TH
import RIO.Directory
import System.Environment (setEnv)
import Control.Concurrent (runInBoundThread)
import qualified LogTests
import qualified DeriveNounTests
import qualified ArvoTests
import qualified AmesTests
import qualified BehnTests
main :: IO ()
main = do
makeAbsolute "../.." >>= setCurrentDirectory
setEnv "TASTY_NUM_THREADS" "1"
runInBoundThread $ defaultMain $ testGroup "Urbit"
[ DeriveNounTests.tests
, ArvoTests.tests
, AmesTests.tests
, LogTests.tests
, BehnTests.tests
]