Skip to content

Commit 2299022

Browse files
committed
Rename and split extension tests file between async and task
1 parent da02410 commit 2299022

File tree

3 files changed

+41
-1
lines changed

3 files changed

+41
-1
lines changed

src/FSharp.Control.TaskSeq.Test/FSharp.Control.TaskSeq.Test.fsproj

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,8 @@
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

src/FSharp.Control.TaskSeq.Test/TaskSeq.Extensions.Tests.fs renamed to src/FSharp.Control.TaskSeq.Test/TaskSeq.AsyncExtensions.Tests.fs

File renamed without changes.
Lines changed: 39 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,39 @@
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+
}

0 commit comments

Comments
 (0)