diff --git a/agora-bench/Bench.hs b/agora-bench/Bench.hs index 33f8f9f..a612b83 100644 --- a/agora-bench/Bench.hs +++ b/agora-bench/Bench.hs @@ -18,7 +18,7 @@ import Plutus.V1.Ledger.Api ( ) import Plutus.V1.Ledger.Api qualified as Plutus -import Spec.Spec ( +import Spec.Specification ( Specification (Specification), SpecificationExpectation (Success), SpecificationTree (..), @@ -30,11 +30,11 @@ import Spec.Spec ( data Benchmark = Benchmark { name :: Text -- ^ Human readable name describing script. - , bCPUBudget :: ExCPU + , cpuBudget :: ExCPU -- ^ The on-chain execution cost of a script. - , bMemoryBudget :: ExMemory + , memoryBudget :: ExMemory -- ^ The on-chain memory budget of a script. - , bScriptSize :: Int + , scriptSize :: Int -- ^ The on-chain size of a script. } deriving stock (Show, Eq, Ord, Generic) @@ -43,9 +43,9 @@ instance ToNamedRecord Benchmark where toNamedRecord (Benchmark {..}) = namedRecord [ "name" .= name - , "cpu" .= bCPUBudget - , "mem" .= bMemoryBudget - , "size" .= bScriptSize + , "cpu" .= cpuBudget + , "mem" .= memoryBudget + , "size" .= scriptSize ] instance DefaultOrdered Benchmark where diff --git a/agora-bench/Main.hs b/agora-bench/Main.hs index e4e8395..da9f79a 100644 --- a/agora-bench/Main.hs +++ b/agora-bench/Main.hs @@ -9,7 +9,7 @@ import Spec.Effect.GovernorMutation qualified as GovernorMutation import Spec.Effect.TreasuryWithdrawal qualified as TreasuryWithdrawal import Spec.Governor qualified as Governor import Spec.Proposal qualified as Proposal -import Spec.Spec (group) +import Spec.Specification (group) import Spec.Stake qualified as Stake import Spec.Treasury qualified as Treasury import Prelude @@ -20,6 +20,11 @@ main :: IO () main = do I.writeFile "bench.csv" $ (decodeUtf8 . encodeDefaultOrderedByName) $ + res + + mapM_ print res + where + res = specificationTreeToBenchmarks $ group "Benchmark" diff --git a/bench.json b/bench.json deleted file mode 100644 index 2a045ee..0000000 --- a/bench.json +++ /dev/null @@ -1 +0,0 @@ -[{"cpu":340268715,"mem":724428,"name":"Benchmark/Effects/Treasury Withdrawal Effect/effect/Simple","size":3050},{"cpu":570029812,"mem":1211300,"name":"Benchmark/Effects/Treasury Withdrawal Effect/effect/Simple with multiple treasuries ","size":3377},{"cpu":502351827,"mem":1071087,"name":"Benchmark/Effects/Treasury Withdrawal Effect/effect/Mixed Assets","size":3242},{"cpu":103054094,"mem":227264,"name":"Benchmark/Effects/Governor Mutation Effect/validator/valid new governor datum/governor validator should pass","size":7467},{"cpu":126696096,"mem":263635,"name":"Benchmark/Effects/Governor Mutation Effect/validator/valid new governor datum/effect validator should pass","size":3293},{"cpu":147898986,"mem":329450,"name":"Benchmark/Stake/policy/stakeCreation","size":2265},{"cpu":261845190,"mem":576377,"name":"Benchmark/Stake/validator/stakeDepositWithdraw deposit","size":3829},{"cpu":261845190,"mem":576377,"name":"Benchmark/Stake/validator/stakeDepositWithdraw withdraw","size":3821},{"cpu":34571405,"mem":70066,"name":"Benchmark/Proposal/policy/proposalCreation","size":1549},{"cpu":242652509,"mem":511783,"name":"Benchmark/Proposal/validator/cosignature/proposal","size":5247},{"cpu":183513647,"mem":395070,"name":"Benchmark/Proposal/validator/cosignature/stake","size":4366},{"cpu":240358004,"mem":492704,"name":"Benchmark/Proposal/validator/voting/proposal","size":5255},{"cpu":154841851,"mem":329311,"name":"Benchmark/Proposal/validator/voting/stake","size":4419},{"cpu":25177457,"mem":55883,"name":"Benchmark/AuthorityToken/singleAuthorityTokenBurned/Correct simple","size":806},{"cpu":40266637,"mem":88241,"name":"Benchmark/AuthorityToken/singleAuthorityTokenBurned/Correct many inputs","size":900},{"cpu":37343572,"mem":79744,"name":"Benchmark/Treasury/Validator/Positive/Allows for effect changes","size":1841},{"cpu":25177457,"mem":55883,"name":"Benchmark/AuthorityToken/singleAuthorityTokenBurned/Correct simple","size":806},{"cpu":40266637,"mem":88241,"name":"Benchmark/AuthorityToken/singleAuthorityTokenBurned/Correct many inputs","size":900},{"cpu":57648280,"mem":119961,"name":"Benchmark/Governor/policy/GST minting","size":1836},{"cpu":309839049,"mem":649395,"name":"Benchmark/Governor/validator/proposal creation","size":7994},{"cpu":429394828,"mem":928681,"name":"Benchmark/Governor/validator/GATs minting","size":8113},{"cpu":100243054,"mem":221538,"name":"Benchmark/Governor/validator/mutate governor state","size":7540}] \ No newline at end of file