diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md index d6d525f..65c1d5e 100644 --- a/RELEASE_NOTES.md +++ b/RELEASE_NOTES.md @@ -1,5 +1,6 @@ ### Unreleased +* Test coverage: Added tests for previously-untested public API functions `AsyncSeq.tryFirst`, `AsyncSeq.firstOrDefault`, `AsyncSeq.zipWithParallel`, `AsyncSeq.combineLatestWithAsync`, and `AsyncSeq.toObservable`. No functional changes. * Fixed Fable CI build: `Microsoft.Bcl.AsyncInterfaces` was pinned to a specific version (`10.0.7`) that was older than the version resolved transitively via `System.Threading.Channels`, causing a `NU1605` package downgrade error that made Fable's project cracker fail during `dotnet fable`. The reference now uses `Version="*"` (matching `System.Threading.Channels`) so both resolve consistently. (#334) ### 4.17.0 diff --git a/tests/FSharp.Control.AsyncSeq.Tests/AsyncSeqTests.fs b/tests/FSharp.Control.AsyncSeq.Tests/AsyncSeqTests.fs index 770f04c..c3738f3 100644 --- a/tests/FSharp.Control.AsyncSeq.Tests/AsyncSeqTests.fs +++ b/tests/FSharp.Control.AsyncSeq.Tests/AsyncSeqTests.fs @@ -5087,3 +5087,94 @@ let ``AsyncSeq.forall2Async returns true with async predicate`` () = (AsyncSeq.ofSeq [1;2;3]) |> Async.RunSynchronously Assert.IsTrue(result) + +// ===== tryFirst / firstOrDefault ===== + +[] +let ``AsyncSeq.tryFirst returns Some first element for non-empty sequence`` () = + let result = AsyncSeq.tryFirst (AsyncSeq.ofSeq [1;2;3]) |> Async.RunSynchronously + Assert.AreEqual(Some 1, result) + +[] +let ``AsyncSeq.tryFirst returns None for empty sequence`` () = + let result = AsyncSeq.tryFirst (AsyncSeq.empty) |> Async.RunSynchronously + Assert.AreEqual(None, result) + +[] +let ``AsyncSeq.firstOrDefault returns first element when non-empty`` () = + let result = AsyncSeq.firstOrDefault -1 (AsyncSeq.ofSeq [5;6;7]) |> Async.RunSynchronously + Assert.AreEqual(5, result) + +[] +let ``AsyncSeq.firstOrDefault returns default when empty`` () = + let result = AsyncSeq.firstOrDefault -1 (AsyncSeq.empty) |> Async.RunSynchronously + Assert.AreEqual(-1, result) + +// ===== zipWithParallel ===== + +[] +let ``AsyncSeq.zipWithParallel combines values from both sequences`` () = + let result = + AsyncSeq.zipWithParallel (fun a b -> a + b) (AsyncSeq.ofSeq [1;2;3]) (AsyncSeq.ofSeq [10;20;30]) + |> AsyncSeq.toArrayAsync + |> Async.RunSynchronously + Assert.AreEqual([| 11;22;33 |], result) + +[] +let ``AsyncSeq.zipWithParallel stops at shorter sequence`` () = + let result = + AsyncSeq.zipWithParallel (fun a b -> a, b) (AsyncSeq.ofSeq [1;2]) (AsyncSeq.ofSeq ["a";"b";"c"]) + |> AsyncSeq.toArrayAsync + |> Async.RunSynchronously + Assert.AreEqual([| (1,"a"); (2,"b") |], result) + +// ===== combineLatestWithAsync ===== + +[] +let ``AsyncSeq.combineLatestWithAsync combines initial values then emits on each new update`` () = + let result = + AsyncSeq.combineLatestWithAsync + (fun a b -> async { return a + b }) + (AsyncSeq.ofSeq [1;2]) + (AsyncSeq.ofSeq [10]) + |> AsyncSeq.toArrayAsync + |> Async.RunSynchronously + // First combination of initial pair, then subsequent updates to source1 combined with latest source2 value. + Assert.AreEqual([| 11; 12 |], result) + +[] +let ``AsyncSeq.combineLatestWithAsync produces empty sequence when either source is empty`` () = + let result = + AsyncSeq.combineLatestWithAsync + (fun a b -> async { return a + b }) + (AsyncSeq.empty) + (AsyncSeq.ofSeq [1;2;3]) + |> AsyncSeq.toArrayAsync + |> Async.RunSynchronously + Assert.AreEqual([||], result) + +// ===== toObservable ===== + +type private TestObserver<'T>(onNext, onCompleted) = + interface IObserver<'T> with + member _.OnNext(v) = onNext v + member _.OnCompleted() = onCompleted () + member _.OnError(_e) = () + +[] +let ``AsyncSeq.toObservable emits all values then completes`` () = + let received = ResizeArray() + let completedEvent = new System.Threading.ManualResetEventSlim(false) + let observer = TestObserver(received.Add, completedEvent.Set) + use _sub = (AsyncSeq.toObservable (AsyncSeq.ofSeq [1;2;3])).Subscribe(observer) + Assert.IsTrue(completedEvent.Wait(2000)) + Assert.AreEqual([| 1;2;3 |], received.ToArray()) + +[] +let ``AsyncSeq.toObservable on empty sequence emits nothing`` () = + let received = ResizeArray() + let completedEvent = new System.Threading.ManualResetEventSlim(false) + let observer = TestObserver(received.Add, completedEvent.Set) + use _sub = (AsyncSeq.toObservable (AsyncSeq.empty)).Subscribe(observer) + Assert.IsTrue(completedEvent.Wait(2000)) + Assert.AreEqual([||], received.ToArray())