+ TaskBuilder tests for ValueTask

Author: gusty

src/FSharpPlus/Extensions/ValueTask.fs

@@ -25,6 +25,12 @@ module ValueTask =
         if x.IsCompleted then f x
         else x.ConfigureAwait(false).GetAwaiter().UnsafeOnCompleted (fun () -> f x)
 
+    
+    let inline continueWith_ (x: ValueTask) f =
+        if x.IsCompleted then f x
+        else x.ConfigureAwait(false).GetAwaiter().UnsafeOnCompleted (fun () -> f x)
+    
+    
     let inline continueWith (x: ValueTask<'t>) f =
         if x.IsCompleted then f x
         else x.ConfigureAwait(false).GetAwaiter().UnsafeOnCompleted (fun () -> f x)
@@ -247,12 +253,22 @@ module ValueTask =
 
     /// <summary>Creates a ValueTask that ignores the result of the source ValueTask.</summary>
     /// <remarks>It can be used to convert non-generic ValueTask to unit ValueTask.</remarks>
-    let ignore (source: ValueTask<'T>) =
+    let ignore (source: ValueTask) : ValueTask<unit> =
         if source.IsCompletedSuccessfully then
             source.GetAwaiter().GetResult() |> ignore
             Unchecked.defaultof<_>
         else
-            new ValueTask (source.AsTask ())
+            let tcs = TaskCompletionSource<unit> ()
+            if source.IsFaulted then tcs.SetException (source.AsTask().Exception |> Unchecked.nonNull).InnerExceptions
+            elif source.IsCanceled then tcs.SetCanceled ()
+            elif source.IsCompleted then k source
+            else
+                let k (t: ValueTask) : unit =
+                    if t.IsCanceled  then tcs.SetCanceled ()
+                    elif t.IsFaulted then tcs.SetException (source.AsTask().Exception |> Unchecked.nonNull).InnerExceptions
+                    else tcs.SetResult ()
+                source.ConfigureAwait(false).GetAwaiter().UnsafeOnCompleted (fun () -> k source)
+            tcs.Task |> ValueTask<unit>
 
     /// Used to de-sugar try .. with .. blocks in Computation Expressions.
     let rec tryWith (compensation: exn -> ValueTask<'T>) (body: unit -> ValueTask<'T>) : ValueTask<'T> =