Sulkta-Coop/agora
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix broken tests; utilizing new PCB APIs

Browse source
This commit is contained in:
Hongrui Fang 2022-07-21 18:28:12 +08:00
parent 43db5ee2ce
commit 23cc230968
No known key found for this signature in database
GPG key ID: 1E0454204FC7D755
12 changed files with 150 additions and 204 deletions
Download patch file Download diff file Expand all files Collapse all files

4
agora-specs/Property/Governor.hs
View file

@ -30,6 +30,7 @@ import Plutarch.Context (
output,
script,
withDatum,
withMinting,
withOutRef,
withValue,
)
@ -43,6 +44,7 @@ import PlutusLedgerApi.V1.Value (assetClassValue)
import Property.Generator (genInput, genOutput)
import Sample.Shared (
govAssetClass,
govSymbol,
govValidatorHash,
governor,
gstUTXORef,
@ -181,7 +183,7 @@ governorMintingProperty =
GovernorOutputNotFound -> referencedInput <> mintAmount 1
GovernorPolicyCorrect -> referencedInput <> outputToGov <> mintAmount 1
return . buildMintingUnsafe $ inputs <> outputs <> comp
return . buildMintingUnsafe $ inputs <> outputs <> comp <> withMinting govSymbol
expected :: ScriptContext -> Maybe ()
expected sc =