Sulkta-OSS/agora
3
0
Fork 0
Code Issues 1 Pull requests Projects Releases Packages Wiki Activity Actions

add tests for governor mutation

Browse source
This commit is contained in:
Hongrui Fang 2022-07-20 20:44:20 +08:00
parent 558313e213
commit fa25ca21a2
6 changed files with 329 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

5
agora/Agora/Governor/Scripts.hs
View file

@ -593,7 +593,10 @@ governorValidator gov =
Just MutateGovernor -> unTermCont $ do
-- Check that a GAT is burnt.
pure $ popaque $ singleAuthorityTokenBurned patSymbol txInfoF.inputs txInfoF.mint
pguardC "One valid GAT burnt" $
singleAuthorityTokenBurned patSymbol txInfoF.inputs txInfoF.mint
pure $ popaque $ pconstant ()
--------------------------------------------------------------------------
Nothing -> ptraceError "Unknown redeemer"