prevent stake inclusion in AdvanceProposal

2022-08-30 15:05:50 +02:00 · 2022-08-30 15:05:50 +02:00 · aba96ce1ec
commit aba96ce1ec
parent 13cc75c401
4 changed files with 431 additions and 551 deletions
--- a/agora-specs/Spec/Proposal.hs
+++ b/agora-specs/Spec/Proposal.hs
@ -244,6 +244,16 @@ specs =
                                , forGovernorValidator = Just True
                                , forAuthorityTokenPolicy = Just True
                                }
+                          , Advance.mkTestTree'
+                              "unexpected stake datum"
+                              (\b -> unwords ["from", show b.proposalParameters.fromStatus])
+                              (Advance.mkUnexpectedOutputStakeBundles cs es)
+                              Advance.Validity
+                                { forProposalValidator = False
+                                , forStakeValidator = True
+                                , forGovernorValidator = Just True
+                                , forAuthorityTokenPolicy = Just True
+                                }
                          , Advance.mkTestTree
                              "forget to mint GATs"
                              (Advance.mkNoGATMintedBundle cs es)