anchor.diff:      [<TestCase("Seq.§find§ (", "User Method Declaration")>]
       [<TestCase("SyntaxModeService.§GetColorStyle§ (\"Gruvbox\")", "User Method Declaration")>]
       [<TestCase("Seq.find (§fun§ c", "Keyword(Jump)")>]
  -    [<TestCase("§type§ SyntaxHighlighting() =", "Keyword(Iteration)")>]
  +    [<TestCase("§type§ SyntaxHighlighting() =", "Keyword(Namespace)")>]
       [<TestCase("type §SyntaxHighlighting§ () =", "User Types")>]
  -    [<TestCase("§module§ MyModule =", "Keyword(Iteration)")>]
  +    [<TestCase("§module§ MyModule =", "Keyword(Namespace)")>]
  +    [<TestCase("module §MyModule§ =", "User Types")>]
       [<TestCase("[<§TestCase§(", "User Types")>]
       [<TestCase("[§<§TestCase(", "Punctuation(Brackets)")>]
       [<TestCase("inherits §SyntaxHighlighting§ () =", "User Types")>]
  
positive.code: 
      [<TestCase("let simpleBinding = §1§", "Number")>]
      [<TestCase("§let§ simpleBinding = 1", "Keyword(Iteration)")>]
      [<TestCase("let §simpleBinding§ = 1", "User Field Declaration")>]
      [<TestCase("let §offset§ = 1", "User Field Declaration")>]
      [<TestCase("let §add§ x y = x + y", "User Method Declaration")>]
  
negative.code:     [<TestCase("member val IndentOnTryWith = false with §get, set§", "Plain Text")>]
      [<TestCase("| Some §funion§ -> ", "User Field Declaration")>]
      [<TestCase("yield §sprintf§ \"%A\"", "User Method Declaration")>]
      [<TestCase("§doc§.Editor", "User Field Declaration")>]
      [<TestCase(":> §SomeType§", "User Types")>]
      [<TestCase("(§'c'§)", "String")>]
      [<TestCase("| Type of §string§", "User Types")>]
      [<TestCase("§DisplayFlags§ = DisplayFlags.DescriptionHasMarkup", "User Field Declaration")>]
      [<TestCase("let shouldEqual (x: §'a§) (y: 'a) =", "User Types")>]
      [<TestCase("| :? §string§", "User Types")>]
      [<TestCase("let inline §private§ is expr s =", "Keyword(Modifiers)")>]
      [<TestCase("let inline private §is§ expr s =", "User Method Declaration")>]
      [<TestCase("override x.§CanHandle§ editor", "User Method Declaration")>]
      [<TestCase("let addEdge ((n1, n2): 'n * §'n§)", "User Types")>]
      [<TestCase("Map<'n, Set<'n§>§>", "Punctuation(Brackets)")>]
      [<TestCase("let docs = §openDocuments§()", "User Method Declaration")>]
  
      member x.``Syntax highlighting``(source, expectedStyle) =
          assertStyle (source, expectedStyle)