SimpleAsyncComplementaryHelpers: added tests

For functions without explicit return types.

Author: webwarrior-ws

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

@@ -175,6 +175,42 @@ module Bar =
 
         Assert.IsTrue this.NoErrorsExist
 
+    [<Test>]
+    member this.``Function AsyncBar without explicit type should give violations offering creation of BarAsync``() =
+        this.Parse """
+module Foo =
+    let AsyncBar() =
+        async { return 0 }
+"""
+
+        Assert.IsTrue this.ErrorsExist
+        StringAssert.Contains("BarAsync(): Task<int>", this.ErrorMsg)
+        StringAssert.Contains("Async.StartAsTask(AsyncBar())", this.ErrorMsg)
+
+    [<Test>]
+    member this.``Function BarAsync without explicit type should give violations offering creation of AsyncBar``() =
+        this.Parse """
+module Foo =
+    let BarAsync() =
+        task { return 1 }
+"""
+
+        Assert.IsTrue this.ErrorsExist
+        StringAssert.Contains("AsyncBar(): Async<int>", this.ErrorMsg)
+        StringAssert.Contains("async { return Async.AwaitTask (BarAsync()) }", this.ErrorMsg)
+
+    [<Test>]
+    member this.``Functions without explicit type that comply with conventions should not give violations``() =
+        this.Parse """
+module Foo =
+    let AsyncBar() =
+        async { return 0 }
+    let BarAsync() =
+        Async.StartAsTask(AsyncBar())
+"""
+
+        Assert.IsTrue this.NoErrorsExist
+
 [<TestFixture>]
 type TestSimpleAsyncComplementaryHelpersAllAPIs() =
     inherit TestAstNodeRuleBase.TestAstNodeRuleBase(SimpleAsyncComplementaryHelpers.rule { Mode = AllAPIs })