Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

export benchmark to json

Browse source
This commit is contained in:
Seungheon Oh 2022-05-24 16:10:12 -05:00
parent 5eebba1355
commit 35ba59c5d6
4 changed files with 39 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

35
agora-bench/Main.hs
View file

@ -1,6 +1,8 @@
module Main (main) where
import Bench (specificationTreeToBenchmarks)
import Data.Aeson.Text (encodeToLazyText)
import Data.Text.Lazy.IO as I
import Spec.AuthorityToken qualified as AuthorityToken
import Spec.Effect.GovernorMutation qualified as GovernorMutation
import Spec.Effect.TreasuryWithdrawal qualified as TreasuryWithdrawal
@ -15,19 +17,20 @@ import Prelude
main :: IO ()
main = do
mapM_ print $
specificationTreeToBenchmarks $
group
"Benchmark"
[ group
"Effects"
[ group "Treasury Withdrawal Effect" TreasuryWithdrawal.specs
, group "Governor Mutation Effect" GovernorMutation.specs
]
, group "Stake" Stake.specs
, group "Proposal" Proposal.specs
, group "AuthorityToken" AuthorityToken.specs
, group "Treasury" Treasury.specs
, group "AuthorityToken" AuthorityToken.specs
, group "Governor" Governor.specs
]
I.writeFile "bench.json" $
encodeToLazyText $
specificationTreeToBenchmarks $
group
"Benchmark"
[ group
"Effects"
[ group "Treasury Withdrawal Effect" TreasuryWithdrawal.specs
, group "Governor Mutation Effect" GovernorMutation.specs
]
, group "Stake" Stake.specs
, group "Proposal" Proposal.specs
, group "AuthorityToken" AuthorityToken.specs
, group "Treasury" Treasury.specs
, group "AuthorityToken" AuthorityToken.specs
, group "Governor" Governor.specs
]