Adds tryGetValue tests

demystifyfp · Jan 6, 2022 · 3439f89 · 3439f89
1 parent 6e6e000
commit 3439f89
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 0 deletions.
diff --git a/tests/FsToolkit.ErrorHandling.Tests/Option.fs b/tests/FsToolkit.ErrorHandling.Tests/Option.fs
@@ -56,6 +56,20 @@ let tryParseTests =
 #endif
         ]
 
+let tryGetValueTests =
+    testList
+        "Option.tryGetValue"
+        [
+#if !FABLE_COMPILER
+        testCase "Can Parse int"
+          <| fun _ ->
+              let expectedValue = 3
+              let expectedKey = "someId"
+              let dictToWorkOn = dict [(expectedKey, expectedValue)]
+              let actual = dictToWorkOn |> Option.tryGetValue expectedKey
+              Expect.equal actual (Some expectedValue) "Should be some value"
+#endif
+        ]
 
 let ofResultTests =
     testList
@@ -72,4 +86,5 @@ let allTests =
         "Option Tests"
         [ traverseResultTests
           tryParseTests
+          tryGetValueTests
           ofResultTests ]
diff --git a/tests/FsToolkit.ErrorHandling.Tests/ValueOption.fs b/tests/FsToolkit.ErrorHandling.Tests/ValueOption.fs
@@ -58,6 +58,19 @@ let tryParseTests =
           ]
 
 
+let tryGetValueTests =
+    testList
+        "ValueOption.tryGetValue"
+        [
+        testCase "Can Parse int"
+          <| fun _ ->
+              let expectedValue = 3
+              let expectedKey = "someId"
+              let dictToWorkOn = dict [(expectedKey, expectedValue)]
+              let actual = dictToWorkOn |> ValueOption.tryGetValue expectedKey
+              Expect.equal actual (ValueSome expectedValue) "Should be some value"
+        ]
+
 let ofResultTests =
     testList
         "ValueOption.ofResult Tests"
@@ -73,5 +86,6 @@ let allTests =
         "ValueOption Tests"
         [ traverseResultTests
           tryParseTests
+          tryGetValueTests
           ofResultTests ]
 #endif