Initial elm test scaffolding

finos-labs · Apr 27, 2022 · 712affe · 712affe
1 parent 450c5de
commit 712affe
Show file tree

Hide file tree

Showing 3 changed files with 34 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -13,3 +13,6 @@ docs/contributing.md
 
 # We use YARN
 website/package-lock.json
+
+# Elm
+elm-stuff/
diff --git a/morphir/elm.json b/morphir/elm.json
@@ -9,6 +9,7 @@
             "elm/browser": "1.0.2",
             "elm/core": "1.0.5",
             "elm/html": "1.0.0",
+            "elm-explorations/test": "1.2.2",
             "finos/morphir-elm": "16.0.0"
         },
         "indirect": {
@@ -32,7 +33,6 @@
             "elm-community/list-extra": "8.5.2",
             "elm-community/maybe-extra": "5.3.0",
             "elm-explorations/markdown": "1.0.0",
-            "elm-explorations/test": "1.2.2",
             "justinmimbs/date": "3.2.1",
             "mdgriffith/elm-ui": "1.1.8",
             "miniBill/elm-unicode": "1.0.2",

diff --git a/morphir/tests/Morphir/TechSprint/Minimal/RuleTests.elm b/morphir/tests/Morphir/TechSprint/Minimal/RuleTests.elm
@@ -0,0 +1,30 @@
+module Morphir.TechSprint.Minimal.RuleTests exposing (..)
+
+import Test exposing (..)
+import Expect
+import Morphir.TechSprint.Minimal.Rule exposing (..)
+import Morphir.TechSprint.Minimal.BasicTypes as BasicTypes exposing (Date)
+import Morphir.TechSprint.Minimal.Type exposing (WorkflowStep)
+import Morphir.TechSprint.Minimal.Type exposing (Trade)
+import Morphir.TechSprint.Minimal.Type exposing (TradeState)
+import Morphir.TechSprint.Minimal.Type exposing (ReportableEvent)
+
+cFTCPart45TransactionReportTest : Test
+cFTCPart45TransactionReportTest =
+    let
+        tradeDate = BasicTypes.Date 1 1 2022
+
+        originatingWorkflowStep = WorkflowStep []
+        reportableTrade = (TradeState (Trade tradeDate))
+
+        event : ReportableEvent
+        event = ReportableEvent originatingWorkflowStep reportableTrade
+
+
+        -- expectedResult : CFTCPart45TransactionReport
+        -- expectedResult =
+
+    in
+    describe "cFTCPart45TransactionReport test"
+        [ test "foo" <| \_ -> Expect.false "false" False
+        ]