File tree Expand file tree Collapse file tree 3 files changed +41
-1
lines changed
src/FSharp.Control.TaskSeq.Test Expand file tree Collapse file tree 3 files changed +41
-1
lines changed Original file line number Diff line number Diff line change 4848 <Compile Include =" TaskSeq.StateTransitionBug-delayed.Tests.CE.fs" />
4949 <Compile Include =" TaskSeq.PocTests.fs" />
5050 <Compile Include =" TaskSeq.Realworld.fs" />
51- <Compile Include =" TaskSeq.Extensions.Tests.fs" />
51+ <Compile Include =" TaskSeq.AsyncExtensions.Tests.fs" />
52+ <Compile Include =" TaskSeq.TaskExtensions.Tests.fs" />
5253 <Compile Include =" Program.fs" />
5354 </ItemGroup >
5455
File renamed without changes.
Original file line number Diff line number Diff line change 1+ module TaskSeq.Tests.TaskExtensions
2+
3+ open System
4+ open Xunit
5+ open FsUnit.Xunit
6+
7+ open FSharp.Control
8+
9+ //
10+ // Task extensions
11+ // Async extensions
12+ //
13+
14+
15+ module TaskCE =
16+ [<Theory; ClassData( typeof< TestImmTaskSeq>) >]
17+ let ``Task - for CE with taskSeq`` variant = task {
18+ let values = Gen.getSeqImmutable variant
19+
20+ let mutable sum = 0
21+
22+ for x in values do
23+ sum <- sum + x
24+
25+ sum |> should equal 55
26+ }
27+
28+ module AsyncCE =
29+ [<Theory; ClassData( typeof< TestImmTaskSeq>) >]
30+ let ``Async - for CE with taskSeq`` variant = async {
31+ let values = Gen.getSeqImmutable variant
32+
33+ let mutable sum = 0
34+
35+ for x in values do
36+ sum <- sum + x
37+
38+ sum |> should equal 55
39+ }
You can’t perform that action at this time.
0 commit comments