WIP simple sample test for Stake policy

agora-test/Spec/Stake.hs

@@ -0,0 +1,39 @@
+module Spec.Stake (tests) where
+
+--------------------------------------------------------------------------------
+
+import Prelude
+
+--------------------------------------------------------------------------------
+
+import Test.Tasty (TestTree, testGroup)
+import Test.Tasty.HUnit (assertFailure, testCase)
+
+--------------------------------------------------------------------------------
+
+import Plutarch (compile)
+import Plutarch.Evaluate (evaluateScript)
+import Plutus.V1.Ledger.Scripts (Script)
+
+--------------------------------------------------------------------------------
+
+import Agora.Stake (stakePolicy)
+
+--------------------------------------------------------------------------------
+
+import Plutarch.Builtin (pforgetData)
+import Spec.Sample.Stake qualified as Stake
+
+--------------------------------------------------------------------------------
+tests :: [TestTree]
+tests =
+  [ testGroup "policy" $
+      [ scriptTest "minting" (compile $ stakePolicy Stake.stake # pforgetData (pconstantData ()) # pconstant Stake.stakeCreation)
+      ]
+  ]
+
+scriptTest :: String -> Script -> TestTree
+scriptTest name script = testCase name $ do
+  case evaluateScript script of
+    Left e -> assertFailure (show e)
+    Right _v -> pure ()