agora-spec made independent from agora-test

agora-spec/Spec/Governor.hs

@@ -0,0 +1,77 @@
+{- |
+Module     : Spec.Governor
+Maintainer : connor@mlabs.city
+Description: Tests for Agora governor.
+
+Thie module exports `specs`, a list of `TestTree`s, which ensure
+that Agora's governor component workds as intended.
+
+Tests should pass when the validator or policy is given one of the
+valid script contexts, which are defined in 'Agora.Sample.Governor'.
+
+TODO: Add negative test cases, see [#76](https://github.com/Liqwid-Labs/agora/issues/76).
+-}
+module Spec.Governor (specs) where
+
+import Agora.Governor (GovernorDatum (..), GovernorRedeemer (..))
+import Agora.Governor.Scripts (governorPolicy, governorValidator)
+import Agora.Proposal (ProposalId (..))
+import Data.Default.Class (Default (def))
+import Sample.Governor (createProposal, mintGATs, mintGST, mutateState)
+import Sample.Shared qualified as Shared
+import Spec.Spec (
+  SpecificationTree,
+  group,
+  policySucceedsWith,
+  validatorSucceedsWith,
+ )
+
+--------------------------------------------------------------------------------
+
+specs :: [SpecificationTree]
+specs =
+  [ group
+      "policy"
+      [ policySucceedsWith
+          "GST minting"
+          (governorPolicy Shared.governor)
+          ()
+          mintGST
+      ]
+  , group
+      "validator"
+      [ validatorSucceedsWith
+          "proposal creation"
+          (governorValidator Shared.governor)
+          ( GovernorDatum
+              Shared.defaultProposalThresholds
+              (ProposalId 0)
+              def
+              def
+          )
+          CreateProposal
+          createProposal
+      , validatorSucceedsWith
+          "GATs minting"
+          (governorValidator Shared.governor)
+          ( GovernorDatum
+              Shared.defaultProposalThresholds
+              (ProposalId 5)
+              def
+              def
+          )
+          MintGATs
+          mintGATs
+      , validatorSucceedsWith
+          "mutate governor state"
+          (governorValidator Shared.governor)
+          ( GovernorDatum
+              Shared.defaultProposalThresholds
+              (ProposalId 5)
+              def
+              def
+          )
+          MutateGovernor
+          mutateState
+      ]
+  ]