prevent minting multiple into one UTxO; regression tests

2022-11-09 17:42:18 +08:00 · 2022-11-09 17:42:18 +08:00 · 287054d95e
commit 287054d95e
parent 0eacf1f6f2
8 changed files with 215 additions and 123 deletions
--- a/agora-specs/Spec/Proposal.hs
+++ b/agora-specs/Spec/Proposal.hs
@ -97,6 +97,12 @@ specs =
              False
              False
              True
+          , Create.mkTestTree
+              "wrong governor redeemer"
+              Create.wrongGovernorRedeemer1
+              False
+              False
+              True
          ]
      ]
  , group
@ -353,6 +359,15 @@ specs =
                                , forGovernorValidator = Just False
                                , forAuthorityTokenPolicy = Just True
                                }
+                          , Advance.mkTestTree
+                              "wrong governor redeemer"
+                              (Advance.mkBadGovernorRedeemerBundle cs es)
+                              Advance.Validity
+                                { forProposalValidator = True
+                                , forStakeValidator = True
+                                , forGovernorValidator = Just False
+                                , forAuthorityTokenPolicy = Just False
+                                }
                          ]
                      ]
      , group "unlocking" $