test that proposal thresholds are inclusively checked

2022-10-31 22:02:06 +08:00 · 2022-10-31 22:02:06 +08:00 · 25ae7ce820
commit 25ae7ce820
parent f6298ba839
2 changed files with 7 additions and 6 deletions
--- a/agora-specs/Sample/Proposal/Vote.hs
+++ b/agora-specs/Sample/Proposal/Vote.hs
@ -35,6 +35,7 @@ import Agora.Proposal (
  ProposalId (ProposalId),
  ProposalRedeemer (Vote),
  ProposalStatus (VotingReady),
+  ProposalThresholds (vote),
  ProposalVotes (ProposalVotes),
  ResultTag (ResultTag),
 )
@ -421,7 +422,7 @@ mkValidOwnerVoteBundle stakes =
          { numStakes = stakes
          , stakeInputParameters =
              StakeInputParameters
-                { perStakeGTs = 114514
+                { perStakeGTs = (def :: ProposalThresholds).vote
                }
          , stakeOutputParameters =
              StakeOutputParameters