WIP simple sample test for Stake policy

2022-03-09 22:00:02 +01:00 · 2022-03-09 22:00:02 +01:00 · a2ea0a46f5
commit a2ea0a46f5
parent 9aa5f5b1a3
9 changed files with 256 additions and 137 deletions
--- a/agora-test/Spec.hs
+++ b/agora-test/Spec.hs
@ -9,14 +9,21 @@ import Test.Tasty (defaultMain, testGroup)
 --------------------------------------------------------------------------------

 import Spec.Int
+import Spec.Stake qualified as Stake

 main :: IO ()
 main =
  defaultMain $
    testGroup
-      "apropos-tx"
+      "test suite"
      [ testGroup
-          "Int"
-          [ intPlutarchTests
+          "sample-tests"
+          Stake.tests
+      , testGroup
+          "apropos-tx"
+          [ testGroup
+              "Int"
+              [ intPlutarchTests
+              ]
          ]
      ]