add benchmarking stub using plutus-benchmark

This commit is contained in:
Emily Martins 2022-02-09 18:39:13 +01:00
parent 2aed336ccf
commit 4c6d9d1ab1
5 changed files with 47 additions and 2 deletions

25
bench/Main.hs Normal file
View file

@ -0,0 +1,25 @@
module Main (main) where
import Prelude
--------------------------------------------------------------------------------
import Plutarch.Benchmark
import Plutus.V1.Ledger.Value qualified as Value
--------------------------------------------------------------------------------
import Agora.AuthorityToken qualified as Agora
--------------------------------------------------------------------------------
main :: IO ()
main = do
benchMain benchmarks
benchmarks :: [NamedBenchmark]
benchmarks =
benchGroup
"full_scripts"
[ bench "authorityTokenPolicy" $ Agora.authorityTokenPolicy (Agora.AuthorityToken (Value.assetClass "" ""))
]