31 lines
755 B
Haskell
31 lines
755 B
Haskell
--------------------------------------------------------------------------------
|
|
|
|
import Prelude
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Test.Tasty (defaultMain, testGroup)
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Spec.Model.MultiSig qualified as MultiSig
|
|
import Spec.Stake qualified as Stake
|
|
|
|
-- | The Agora test suite.
|
|
main :: IO ()
|
|
main =
|
|
defaultMain $
|
|
testGroup
|
|
"test suite"
|
|
[ testGroup
|
|
"Stake tests"
|
|
Stake.tests
|
|
, testGroup
|
|
"Multisig tests"
|
|
[ testGroup
|
|
"MultiSig"
|
|
[ MultiSig.plutarchTests
|
|
, MultiSig.genTests
|
|
]
|
|
]
|
|
]
|