Add tests for yield! list<'T> in asyncSeq computation expression (#240)

Co-authored-by: Repo Assist <[email protected]>
Co-authored-by: Copilot <[email protected]>

Author: 3 people

tests/FSharp.Control.AsyncSeq.Tests/AsyncSeqTests.fs

@@ -176,6 +176,26 @@ let ``asyncSeq yield! seq combines with other yields``() =
   let a = s |> AsyncSeq.toListSynchronously
   Assert.True(([1;2;3;4] = a))
 
+[<Test>]
+let ``asyncSeq yield! list works``() =
+  let items = [1; 2; 3]
+  let s = asyncSeq {
+    yield! items
+  }
+  let a = s |> AsyncSeq.toListSynchronously
+  Assert.True(([1;2;3] = a))
+
+[<Test>]
+let ``asyncSeq yield! list combines with other yields``() =
+  let items = [2; 3]
+  let s = asyncSeq {
+    yield 1
+    yield! items
+    yield 4
+  }
+  let a = s |> AsyncSeq.toListSynchronously
+  Assert.True(([1;2;3;4] = a))
+
 [<Test>]
 let ``AsyncSeq.concatSeq works``() =
   let ls = [ [1;2] ; [3;4] ]