Add more unit tests

Author: 1eyewonder

samples/OptionAnalyzer.Test/UnitTests.fs

@@ -273,4 +273,56 @@ let x = 1
         let ctx = getContext projectOptions source
         ctx.AnalyzerIgnoreRanges |> tryCompareRanges "IONIDE-001" [SingleLine 3]
         ctx.AnalyzerIgnoreRanges |> tryCompareRanges "IONIDE-002" [SingleLine 3]
+    }
+
+[<Test>]
+let ``file ignore handles tight spacing`` () =
+    async {
+        let source = """
+module M
+// IGNORE FILE:IONIDE-001
+let x = 1
+"""
+        let ctx = getContext projectOptions source
+        ctx.AnalyzerIgnoreRanges |> tryCompareRanges "IONIDE-001" [File]
+    }
+
+[<Test>]
+let ``file ignore handles loose spacing`` () =
+    async {
+        let source = """
+module M
+// IGNORE FILE :     IONIDE-001
+let x = 1
+"""
+        let ctx = getContext projectOptions source
+        ctx.AnalyzerIgnoreRanges |> tryCompareRanges "IONIDE-001" [File]
+    }
+
+
+
+[<Test>]
+let ``range ignore handles tight spacing`` () =
+    async {
+        let source = """
+module M
+// IGNORE START:IONIDE-001
+let x = 1
+// IGNORE END
+"""
+        let ctx = getContext projectOptions source
+        ctx.AnalyzerIgnoreRanges |> tryCompareRanges "IONIDE-001" [Range (3, 5)]
+    }
+
+[<Test>]
+let ``range ignore handles loose spacing`` () =
+    async {
+        let source = """
+module M
+// IGNORE START   :     IONIDE-001
+let x = 1
+// IGNORE END
+"""
+        let ctx = getContext projectOptions source
+        ctx.AnalyzerIgnoreRanges |> tryCompareRanges "IONIDE-001" [Range (3, 5)]
     }

src/FSharp.Analyzers.SDK/FSharp.Analyzers.SDK.fs

@@ -57,11 +57,11 @@ module Ignore =
             match sourceText.GetLineString(r.StartLine - 1) with
             | ParseRegexCompiled @"IGNORE\s*:\s*(.*)$" [ SplitBy splitBy codes ] ->
                 Some <| IgnoreComment.SingleLine(r.StartLine, trimCodes codes)
-            | ParseRegexCompiled @"IGNORE FILE\s*:\s*(.*)$" [ SplitBy splitBy codes ] -> 
+            | ParseRegexCompiled @"IGNORE\s+FILE\s*:\s*(.*)$" [ SplitBy splitBy codes ] -> 
                 Some <| IgnoreComment.File (trimCodes codes)
-            | ParseRegexCompiled @"IGNORE START\s*:\s*(.*)$" [ SplitBy splitBy codes ] ->
+            | ParseRegexCompiled @"IGNORE\s+START\s*:\s*(.*)$" [ SplitBy splitBy codes ] ->
                 Some <| IgnoreComment.RangeStart(r.StartLine, trimCodes codes)
-            | ParseRegexCompiled @"IGNORE END(.*)$" _ -> Some <| IgnoreComment.RangeEnd r.StartLine
+            | ParseRegexCompiled @"IGNORE\s+END(.*)$" _ -> Some <| IgnoreComment.RangeEnd r.StartLine
             | _ -> None
 
     let getIgnoreComments (sourceText: ISourceText) (comments: CommentTrivia list) =