diff --git a/src/FSharpy.TaskSeq.Test/TaskSeq.StateTransitionBug-delayed.Tests.CE.fs b/src/FSharpy.TaskSeq.Test/TaskSeq.StateTransitionBug-delayed.Tests.CE.fs index 72dce394..c7117e28 100644 --- a/src/FSharpy.TaskSeq.Test/TaskSeq.StateTransitionBug-delayed.Tests.CE.fs +++ b/src/FSharpy.TaskSeq.Test/TaskSeq.StateTransitionBug-delayed.Tests.CE.fs @@ -1,4 +1,4 @@ -module FSharpy.Tests.``Bug #42 -- delayed`` // see PR #42 +module FSharpy.Tests.``Bug #42 -- asynchronous`` // see PR #42 open System open System.Threading.Tasks @@ -56,7 +56,11 @@ let ``CE empty taskSeq, GetAsyncEnumerator multiple times`` variant = task { () } -[] +[] let ``CE empty taskSeq, GetAsyncEnumerator multiple times and then MoveNextAsync`` variant = task { let tskSeq = getEmptyVariant variant use enumerator = tskSeq.GetAsyncEnumerator() @@ -64,7 +68,11 @@ let ``CE empty taskSeq, GetAsyncEnumerator multiple times and then MoveNextAsyn do! moveNextAndCheck false enumerator } -[] +[] let ``CE empty taskSeq, GetAsyncEnumerator + MoveNextAsync multiple times`` variant = task { let tskSeq = getEmptyVariant variant use enumerator1 = tskSeq.GetAsyncEnumerator() @@ -76,7 +84,11 @@ let ``CE empty taskSeq, GetAsyncEnumerator + MoveNextAsync multiple times`` vari do! moveNextAndCheck false enumerator2 // new hone should also work without raising } -[] +[] let ``CE empty taskSeq, GetAsyncEnumerator + MoveNextAsync in a loop`` variant = task { let tskSeq = getEmptyVariant variant @@ -181,7 +193,7 @@ let ``CE taskSeq, MoveNext too far`` () = task { enum.Current |> should equal Guid.Empty // we return Unchecked.defaultof, which is Guid.Empty for guids } -[] +[] let ``CE taskSeq, call GetAsyncEnumerator twice, both should have equal behavior`` () = task { let tskSeq = taskSeq { do! delayRandom () @@ -206,7 +218,7 @@ let ``CE taskSeq, call GetAsyncEnumerator twice, both should have equal behavior do! moveNextAndCheckCurrent false 0 enum2 // this used to be an error, see issue #39 and PR #42 } -[] +[] let ``CE taskSeq, cal GetAsyncEnumerator twice -- in lockstep`` () = task { let tskSeq = taskSeq { do! delayRandom () @@ -236,6 +248,7 @@ let ``CE taskSeq, cal GetAsyncEnumerator twice -- in lockstep`` () = task { let ``CE taskSeq, call GetAsyncEnumerator twice -- after full iteration`` () = task { let tskSeq = taskSeq { yield 1 + do! delayRandom () yield 2 } @@ -254,7 +267,7 @@ let ``CE taskSeq, call GetAsyncEnumerator twice -- after full iteration`` () = t do! moveNextAndCheckCurrent false 0 enum2 // this used to be an error, see issue #39 and PR #42 } -[] +[] let ``CE taskSeq, call GetAsyncEnumerator twice -- random mixed iteration`` () = task { let tskSeq = taskSeq { yield 1 diff --git a/src/FSharpy.TaskSeq.Test/TaskSeq.StateTransitionBug.Tests.CE.fs b/src/FSharpy.TaskSeq.Test/TaskSeq.StateTransitionBug.Tests.CE.fs index ca422e68..43c0bbec 100644 --- a/src/FSharpy.TaskSeq.Test/TaskSeq.StateTransitionBug.Tests.CE.fs +++ b/src/FSharpy.TaskSeq.Test/TaskSeq.StateTransitionBug.Tests.CE.fs @@ -1,4 +1,4 @@ -module FSharpy.Tests.``Bug #42`` // see PR #42 +module FSharpy.Tests.``Bug #42 -- synchronous`` // see PR #42 open System open System.Threading.Tasks diff --git a/src/FSharpy.TaskSeq/TaskSeqBuilder.fs b/src/FSharpy.TaskSeq/TaskSeqBuilder.fs index b50e56c0..5655fd8f 100644 --- a/src/FSharpy.TaskSeq/TaskSeqBuilder.fs +++ b/src/FSharpy.TaskSeq/TaskSeqBuilder.fs @@ -17,7 +17,7 @@ open FSharp.Core.CompilerServices.StateMachineHelpers module Internal = // cannot be marked with 'internal' scope /// enable (very) verbose printing of flow and state - let verbose = true + let verbose = false let x = ListCollector