Add regression test for define above SynExpr.Do. (#1491)

Fixes #1333.
fsprojects · Feb 26, 2021 · 3cafac5 · 3cafac5
1 parent 69c30df
commit 3cafac5
Showing 1 changed file with 62 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/CompilerDirectivesTests.fs b/src/Fantomas.Tests/CompilerDirectivesTests.fs
@@ -2244,3 +2244,65 @@ let loader (projectRoot: string) (siteContent: SiteContents) =
 #endif
     disableLiveRefresh
 """
+
+[<Test>]
+let ``directive above SynExpr.Do, 1333`` () =
+    formatSourceString
+        false
+        """
+[<AutoOpen>]
+module ReactHookExtensions =
+    type React with
+        [<Hook>]
+        static member useDeferred(operation: Async<'T>, dependencies: obj array) =
+            let (deferred, setDeferred) = React.useState(Deferred.HasNotStartedYet)
+            let token = React.useCancellationToken()
+            let executeOperation = async {
+                try
+                    do setDeferred(Deferred<'T>.InProgress)
+                    let! output = operation
+                    do setDeferred(Deferred<'T>.Resolved output)
+                with error ->
+                    #if DEBUG
+                    Browser.Dom.console.log(error)
+                    #endif
+                    do setDeferred(Deferred<'T>.Failed error)
+            }
+
+            React.useEffect((fun () -> Async.StartImmediate(executeOperation, token.current)), dependencies)
+
+            deferred
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+[<AutoOpen>]
+module ReactHookExtensions =
+    type React with
+        [<Hook>]
+        static member useDeferred(operation: Async<'T>, dependencies: obj array) =
+            let (deferred, setDeferred) =
+                React.useState (Deferred.HasNotStartedYet)
+
+            let token = React.useCancellationToken ()
+
+            let executeOperation =
+                async {
+                    try
+                        do setDeferred (Deferred<'T>.InProgress)
+
+                        let! output = operation
+                        do setDeferred (Deferred<'T>.Resolved output)
+                    with error ->
+#if DEBUG
+                        Browser.Dom.console.log (error)
+#endif
+                        do setDeferred (Deferred<'T>.Failed error)
+                }
+
+            React.useEffect ((fun () -> Async.StartImmediate(executeOperation, token.current)), dependencies)
+
+            deferred
+"""