Implement governor mintint policy property tests.

This commit is contained in:
adamczykm 2022-11-10 19:09:01 +01:00 committed by Hongrui Fang
parent 740e1416fb
commit 463106b0cf
4 changed files with 204 additions and 106 deletions

View file

@ -58,7 +58,7 @@ import PlutusLedgerApi.V2 (
ValidatorHash,
)
import Sample.Shared (
deterministicTracingConfing,
deterministicTracingConfig,
minAda,
)
import Sample.Shared qualified as Shared
@ -124,7 +124,7 @@ scripts =
(view #scripts)
( runLinker
linker
(agoraScripts deterministicTracingConfing)
(agoraScripts deterministicTracingConfig)
governor
)

View file

@ -12,7 +12,7 @@ module Sample.Shared (
signer,
signer2,
minAda,
deterministicTracingConfing,
deterministicTracingConfig,
mkRedeemer,
-- * Agora Scripts
@ -121,8 +121,8 @@ import ScriptExport.ScriptInfo (runLinker)
-- Plutarch compiler configauration.
-- TODO: add the ability to change this value. Maybe wrap everything in a
-- Reader monad?
deterministicTracingConfing :: Config
deterministicTracingConfing = Config DetTracing
deterministicTracingConfig :: Config
deterministicTracingConfig = Config DetTracing
governor :: Governor
governor = Governor oref gt mc
@ -142,7 +142,7 @@ agoraScripts =
(view #scripts)
( runLinker
linker
(Bootstrap.agoraScripts deterministicTracingConfing)
(Bootstrap.agoraScripts deterministicTracingConfig)
governor
)