Update traverseResultA tests to verify ordering is correct

Author: TheAngryByrd

tests/FsToolkit.ErrorHandling.JobResult.Tests/List.fs

@@ -23,11 +23,12 @@ let traverseJobResultMTests =
 
   testList "List.traverseJobResultM Tests" [
     testCase "traverseJobResultM with a list of valid data" <| fun _ ->
-      let expected = [();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.traverseJobResultM (notifyNewPostSuccess (PostId newPostId)) userIds
       Expect.hasJobOkValue expected actual
 
+
     testCase "traverseResultA with few invalid data" <| fun _ ->
       let expected = sprintf "error: %s" (userId1.ToString())
       let actual = 
@@ -48,7 +49,7 @@ let traverseJobResultATests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.traverseJobResultA Tests" [
     testCase "traverseJobResultA with a list of valid data" <| fun _ ->
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.traverseJobResultA (notifyNewPostSuccess (PostId newPostId)) userIds
       Expect.hasJobOkValue expected actual
@@ -66,7 +67,7 @@ let sequenceJobResultMTests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.sequenceJobResultM Tests" [
     testCase "sequenceJobResultM with a list of valid data" <| fun _ ->
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.map (notifyNewPostSuccess (PostId newPostId)) userIds
         |> List.sequenceJobResultM
@@ -85,7 +86,7 @@ let sequenceJobResultATests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.sequenceJobResultA Tests" [
     testCase "sequenceJobResultA with a list of valid data" <| fun _ ->
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.map (notifyNewPostSuccess (PostId newPostId)) userIds
         |> List.sequenceJobResultA

tests/FsToolkit.ErrorHandling.TaskResult.Tests/List.fs

@@ -23,7 +23,7 @@ let traverseTaskResultMTests =
 
   testList "List.traverseTaskResultM Tests" [
     testCase "traverseTaskResultM with a list of valid data" <| fun _ ->
-      let expected = [();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.traverseTaskResultM (notifyNewPostSuccess (PostId newPostId)) userIds
       Expect.hasTaskOkValue expected actual
@@ -48,7 +48,7 @@ let traverseTaskResultATests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.traverseTaskResultA Tests" [
     testCase "traverseTaskResultA with a list of valid data" <| fun _ ->
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.traverseTaskResultA (notifyNewPostSuccess (PostId newPostId)) userIds
       Expect.hasTaskOkValue expected actual
@@ -66,7 +66,7 @@ let sequenceTaskResultMTests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.sequenceTaskResultM Tests" [
     testCase "sequenceTaskResultM with a list of valid data" <| fun _ ->
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.map (notifyNewPostSuccess (PostId newPostId)) userIds
         |> List.sequenceTaskResultM
@@ -85,7 +85,7 @@ let sequenceTaskResultATests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.sequenceTaskResultA Tests" [
     testCase "sequenceTaskResultA with a list of valid data" <| fun _ ->
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.map (notifyNewPostSuccess (PostId newPostId)) userIds
         |> List.sequenceTaskResultA

tests/FsToolkit.ErrorHandling.Tests/List.fs

@@ -118,7 +118,7 @@ let traverseAsyncResultMTests =
 
   testList "List.traverseAsyncResultM Tests" [
     testCaseAsync "traverseAsyncResultM with a list of valid data" <| async {
-      let expected = [();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.traverseAsyncResultM (notifyNewPostSuccess (PostId newPostId)) userIds
       do! Expect.hasAsyncOkValue expected actual
@@ -144,7 +144,7 @@ let traverseAsyncResultATests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.traverseAsyncResultA Tests" [
     testCaseAsync "traverseAsyncResultA with a list of valid data" <| async {
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.traverseAsyncResultA (notifyNewPostSuccess (PostId newPostId)) userIds
       do! Expect.hasAsyncOkValue expected actual
@@ -164,7 +164,7 @@ let sequenceAsyncResultMTests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.sequenceAsyncResultM Tests" [
     testCaseAsync "sequenceAsyncResultM with a list of valid data" <| async {
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.map (notifyNewPostSuccess (PostId newPostId)) userIds
         |> List.sequenceAsyncResultM
@@ -185,7 +185,7 @@ let sequenceAsyncResultATests =
   let userIds = List.map UserId [userId1;userId2;userId3;userId4]
   testList "List.sequenceAsyncResultA Tests" [
     testCaseAsync "sequenceAsyncResultA with a list of valid data" <| async {
-      let expected = [();();();()]
+      let expected = userIds |> List.map(fun (UserId user) -> (newPostId, user))
       let actual = 
         List.map (notifyNewPostSuccess (PostId newPostId)) userIds
         |> List.sequenceAsyncResultA

tests/FsToolkit.ErrorHandling.Tests/SampleDomain.fs

@@ -224,8 +224,8 @@ let createPostFailure (_ : CreatePostRequest) = async {
 }
 
 
-let notifyNewPostSuccess (PostId _) (UserId _) = async {
-  return Ok ()
+let notifyNewPostSuccess (PostId post) (UserId user) = async {
+  return Ok (post, user)
 }
 
 let notifyNewPostFailure (PostId _) (UserId uId) = async {