Added testParamAsync and testParamTask (#512)

Expecto.Tests/Tests.fs

@@ -289,6 +289,26 @@ let expecto =
             Expect.isLessThan value 1444 "Should be less than"
     ] |> List.ofSeq)
 
+    testList "testParamAsync" (
+      testParamAsync 1 [
+        "First sample",
+          fun value -> async {
+            Expect.equal value 1 "Should be expected value"
+          }
+      ]
+      |> List.ofSeq
+    )
+
+    testList "testParamTask" (
+      testParamTask 1 [
+        "First sample",
+          fun value () -> task {
+            Expect.equal value 1 "Should be expected value"
+          }
+      ]
+      |> List.ofSeq
+    )
+
     testList "shuffle" [
       testAsync "array sort same" {
         let a = [|1;2;3;4;5;6;7|]

Expecto/Expecto.fs

@@ -146,11 +146,22 @@ module Tests =
       ptestCase (stringify case) <| fun () ->
         test case |> ignore
     ptestList name (cases |> Seq.map caseToTest |> List.ofSeq)
+
   /// Applies a value to a list of partial tests
   let inline testParam param =
     Seq.map (fun (name, partialTest) ->
       testCase name (partialTest param))
 
+  /// Applies a value to a list of partial async tests
+  let inline testParamAsync param =
+    Seq.map (fun (name, partialTest) ->
+      testCaseAsync name (partialTest param))
+
+  /// Applies a value to a list of partial task tests
+  let inline testParamTask param =
+    Seq.map (fun (name, partialTest) ->
+      testCaseTask name (partialTest param))
+
   /// Test case computation expression builder
   type TestCaseBuilder(name, focusState) =
     member __.TryFinally(f, compensation) =