urbit/pkg/king/test/Main.hs

module Main (main) where

import ClassyPrelude

import RIO.Directory
import Test.QuickCheck       hiding ((.&.))
import Test.Tasty
import Test.Tasty.QuickCheck
import Test.Tasty.TH

import Control.Concurrent (runInBoundThread)
import System.Environment (setEnv)

import qualified AmesTests
import qualified ArvoTests
import qualified BehnTests
import qualified DeriveNounTests
import qualified LogTests
import qualified NounConversionTests

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
        , NounConversionTests.tests
        ]