initial api tests

input-output-hk · Mar 17, 2023 · a7f7454 · a7f7454
1 parent 5a79b70
commit a7f7454
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/marlowe-runtime/marlowe-runtime.cabal b/marlowe-runtime/marlowe-runtime.cabal
@@ -526,6 +526,7 @@ test-suite marlowe-runtime-test
   other-modules:
     Language.Marlowe.Runtime.Core.MetadataSpec
     Language.Marlowe.Runtime.Core.ScriptRegistrySpec
+    Language.Marlowe.Runtime.Transaction.ApiSpec
     Language.Marlowe.Runtime.Transaction.BuildConstraintsSpec
     Language.Marlowe.Runtime.Transaction.ConstraintsSpec
     Language.Marlowe.Runtime.Transaction.CommandSpec

diff --git a/marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/ApiSpec.hs b/marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/ApiSpec.hs
@@ -0,0 +1,13 @@
+module Language.Marlowe.Runtime.Transaction.ApiSpec
+  ( spec
+  ) where
+
+-- import Language.Marlowe.Runtime.Transaction.Api (mkCIP25Metadata)
+
+import Test.Hspec (Spec, describe, it, shouldBe)
+
+spec :: Spec
+spec = do
+  describe "mkCIP25Metadata" do
+    it "yo yo hey ho" do
+      5 `shouldBe` (4 :: Int)