From a7f7454c3f196676c2477bf4774d10ddbc06a4be Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Kihlberg?= Date: Fri, 17 Mar 2023 09:25:47 +0100 Subject: [PATCH] initial api tests --- marlowe-runtime/marlowe-runtime.cabal | 1 + .../Language/Marlowe/Runtime/Transaction/ApiSpec.hs | 13 +++++++++++++ 2 files changed, 14 insertions(+) create mode 100644 marlowe-runtime/test/Language/Marlowe/Runtime/Transaction/ApiSpec.hs diff --git a/marlowe-runtime/marlowe-runtime.cabal b/marlowe-runtime/marlowe-runtime.cabal index f2e4f8aceb..10ead4fa3b 100644 --- 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 new file mode 100644 index 0000000000..5468a855c0 --- /dev/null +++ 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)