add tests for advancement from draft phrase; refactoring

agora-specs/Sample/Proposal/Shared.hs

@@ -1,9 +1,39 @@
-module Sample.Proposal.Shared (proposalRef, stakeRef) where
+module Sample.Proposal.Shared (proposalTxRef, stakeTxRef, testFunc) where
 
-import PlutusLedgerApi.V1 (TxOutRef (..))
+import Plutarch.Api.V1 (PValidator)
+import Plutarch.Lift (PUnsafeLiftDecl (..))
+import PlutusLedgerApi.V1 (ScriptContext, ToData, TxId)
+import Test.Specification (
+  SpecificationTree,
+  validatorFailsWith,
+  validatorSucceedsWith,
+ )
 
-proposalRef :: TxOutRef
-proposalRef = TxOutRef "0b2086cbf8b6900f8cb65e012de4516cb66b5cb08a9aaba12a8b88be" 1
+-- | 'TxId' of all the propsoal inputs in the samples.
+proposalTxRef :: TxId
+proposalTxRef = "0b2086cbf8b6900f8cb65e012de4516cb66b5cb08a9aaba12a8b88be"
 
-stakeRef :: TxOutRef
-stakeRef = TxOutRef "0ca36f3a357bc69579ab2531aecd1e7d3714d993c7820f40b864be15" 0
+-- | 'TxId' of all the stake inputs in the samples.
+stakeTxRef :: TxId
+stakeTxRef = "0ca36f3a357bc69579ab2531aecd1e7d3714d993c7820f40b864be15"
+
+-- | Get the test function given whether a test case is valid.
+testFunc ::
+  forall {datum :: PType} {redeemer :: PType}.
+  ( PUnsafeLiftDecl datum
+  , PUnsafeLiftDecl redeemer
+  , ToData (PLifted datum)
+  , ToData (PLifted redeemer)
+  ) =>
+  -- | Should the validator pass?
+  Bool ->
+  String ->
+  ClosedTerm PValidator ->
+  PLifted datum ->
+  PLifted redeemer ->
+  ScriptContext ->
+  SpecificationTree
+testFunc isValid =
+  if isValid
+    then validatorSucceedsWith
+    else validatorFailsWith