agora/agora-test/Spec.hs
2022-03-18 15:23:07 +01:00

35 lines
827 B
Haskell

--------------------------------------------------------------------------------
import Prelude
--------------------------------------------------------------------------------
import Test.Tasty (defaultMain, testGroup)
--------------------------------------------------------------------------------
import Model.MultiSig qualified
import Spec.Int
import Spec.Stake qualified as Stake
main :: IO ()
main =
defaultMain $
testGroup
"test suite"
[ testGroup
"sample-tests"
Stake.tests
, testGroup
"apropos-tx"
[ testGroup
"Int"
[ intPlutarchTests
]
, testGroup
"MultiSig"
[ Model.MultiSig.plutarchTests
, Model.MultiSig.genTests
]
]
]