Restructure

`agora-spec` and `agora-spec` is merged to be `agora-specs`;
`agora-testlib` contains what previously was `Spec.Specification`.

agora-specs/Spec/Effect/GovernorMutation.hs

@@ -0,0 +1,76 @@
+module Spec.Effect.GovernorMutation (specs) where
+
+import Agora.Effect.GovernorMutation (mutateGovernorValidator)
+import Agora.Governor (GovernorDatum (..), GovernorRedeemer (MutateGovernor))
+import Agora.Governor.Scripts (governorValidator)
+import Agora.Proposal (ProposalId (..))
+import Data.Default.Class (Default (def))
+import Plutus.V1.Ledger.Api (ScriptContext (ScriptContext), ScriptPurpose (Spending))
+import Sample.Effect.GovernorMutation (
+  effectRef,
+  govRef,
+  invalidNewGovernorDatum,
+  mkEffectDatum,
+  mkEffectTxInfo,
+  validNewGovernorDatum,
+ )
+import Sample.Shared qualified as Shared
+import Test.Specification (
+  SpecificationTree,
+  effectFailsWith,
+  effectSucceedsWith,
+  group,
+  validatorFailsWith,
+  validatorSucceedsWith,
+ )
+
+specs :: [SpecificationTree]
+specs =
+  [ group
+      "validator"
+      [ group
+          "valid new governor datum"
+          [ validatorSucceedsWith
+              "governor validator should pass"
+              (governorValidator Shared.governor)
+              ( GovernorDatum
+                  def
+                  (ProposalId 0)
+                  def
+                  def
+              )
+              MutateGovernor
+              ( ScriptContext
+                  (mkEffectTxInfo validNewGovernorDatum)
+                  (Spending govRef)
+              )
+          , effectSucceedsWith
+              "effect validator should pass"
+              (mutateGovernorValidator Shared.governor)
+              (mkEffectDatum validNewGovernorDatum)
+              (ScriptContext (mkEffectTxInfo validNewGovernorDatum) (Spending effectRef))
+          ]
+      , group
+          "invalid new governor datum"
+          [ validatorFailsWith
+              "governor validator should fail"
+              (governorValidator Shared.governor)
+              ( GovernorDatum
+                  def
+                  (ProposalId 0)
+                  def
+                  def
+              )
+              MutateGovernor
+              ( ScriptContext
+                  (mkEffectTxInfo invalidNewGovernorDatum)
+                  (Spending govRef)
+              )
+          , effectFailsWith
+              "effect validator should fail"
+              (mutateGovernorValidator Shared.governor)
+              (mkEffectDatum validNewGovernorDatum)
+              (ScriptContext (mkEffectTxInfo invalidNewGovernorDatum) (Spending effectRef))
+          ]
+      ]
+  ]