Add regression test for multiline yield bang in if/then expression. F…

…ixes #1185. (#1492)
fsprojects · Feb 26, 2021 · 83ff34e · 83ff34e
1 parent 3cafac5
commit 83ff34e
Showing 1 changed file with 37 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/IfThenElseTests.fs b/src/Fantomas.Tests/IfThenElseTests.fs
@@ -2019,3 +2019,40 @@ module Configuration =
         then
             config.Save file
 """
+
+[<Test>]
+let ``multiline yield bang in then expression, 1185`` () =
+    formatSourceString
+        false
+        """
+let lessonsForm (f:ValidatedForm<Request.CreateLessons>) dispatch =
+
+    Html.div [
+        Bulma.field.div [
+            Bulma.fieldBody [
+                Bulma.button.button [
+                    color.isPrimary
+                    prop.text "Přidat lekce"
+                    if f.IsLoading then yield! [ button.isLoading; prop.disabled true ]
+                    prop.onClick (fun _ -> CreateLessons |> dispatch)
+                ]
+            ]
+        ]
+    ]
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let lessonsForm (f: ValidatedForm<Request.CreateLessons>) dispatch =
+
+    Html.div [ Bulma.field.div [ Bulma.fieldBody [ Bulma.button.button [ color.isPrimary
+                                                                         prop.text "Přidat lekce"
+                                                                         if f.IsLoading then
+                                                                             yield!
+                                                                                 [ button.isLoading
+                                                                                   prop.disabled true ]
+                                                                         prop.onClick
+                                                                             (fun _ -> CreateLessons |> dispatch) ] ] ] ]
+"""