urbit/pkg/king/test/Main.hs

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
        ]