SynchronousFunctionNames: added tests

For functions without explicit return types.

Author: webwarrior-ws

tests/FSharpLint.Core.Tests/Rules/Conventions/Naming/SynchronousFunctionNames.fs

@@ -209,3 +209,49 @@ type Foo() =
 """
 
         Assert.IsTrue this.NoErrorsExist
+
+    [<Test>]
+    member this.``Non-asynchronous function without explicit type named Async* should give violations offering removing Async prefix``() =
+        this.Parse """
+module Foo =
+    let AsyncBar() =
+        1
+"""
+
+        Assert.IsTrue this.ErrorsExist
+        StringAssert.Contains("Bar", this.ErrorMsg)
+
+    [<Test>]
+    member this.``Non-asynchronous function without explicit type named *Async should give violations offering removing Async suffix``() =
+        this.Parse """
+module Foo =
+    let BarAsync() =
+        1
+"""
+
+        Assert.IsTrue this.ErrorsExist
+        StringAssert.Contains("Bar", this.ErrorMsg)
+
+    [<Test>]
+    member this.``Async functions without explicit type with Async prefix should give no violations``() =
+        this.Parse """
+let AsyncFoo() =
+    async { return 1 }
+let AsyncBar() =
+    async { return () }
+let AsyncBaz() =
+    async { do! Async.Sleep(1000) }
+"""
+
+        Assert.IsTrue this.NoErrorsExist
+
+    [<Test>]
+    member this.``Functions without explicit type that return Task with Async suffix should give no violations``() =
+        this.Parse """
+let FooAsync() =
+    task {}
+let BarAsync() =
+    task { return 1 }
+"""
+
+        Assert.IsTrue this.NoErrorsExist