add benchmarking stub using plutus-benchmark
This commit is contained in:
parent
2aed336ccf
commit
4c6d9d1ab1
5 changed files with 47 additions and 2 deletions
25
bench/Main.hs
Normal file
25
bench/Main.hs
Normal 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 "" ""))
|
||||
]
|
||||
Loading…
Add table
Add a link
Reference in a new issue