[Repo Assist] Add tests for yield! list<'T> in asyncSeq computation expression

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

@@ -176,6 +176,26 @@
   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] ]
@@ -1850,7 +1870,7 @@
       let actual =
         ls
         |> AsyncSeq.ofSeq
         |> AsyncSeq.groupBy p
         |> AsyncSeq.mapAsyncParallel (snd >> AsyncSeq.toListAsync)
       Assert.AreEqual(expected, actual)
 
@@ -1859,7 +1879,7 @@
   let expected = asyncSeq { raise (exn("test")) }
   let actual =
     asyncSeq { raise (exn("test")) }
     |> AsyncSeq.groupBy (fun i -> i % 3)
     |> AsyncSeq.mapAsyncParallel (snd >> AsyncSeq.toListAsync)
   Assert.AreEqual(expected, actual)