anchor.diff:          helper.SetUpProjectAndCurrentDocument(ExternalProjectProvider(projectFileName), fileName, content)
           let view = helper.GetView(buffer)
           view.Caret.MoveTo(snapshotPoint view.TextSnapshot 5 22) |> ignore
  -        let tagger = helper.GetTagger(buffer, view)        
  +        let tagger = helper.GetTagger(buffer, view)
           testEvent tagger.TagsChanged "Timed out before tags changed" timeout
               (fun () -> 
  -                helper.TagsOf(buffer, tagger)                 
  -                |> Seq.toList
  -                |> assertEqual
  -                     [ (5, 22) => (5, 28); (6, 22) => (6, 28) ])
  -
  +                helper.TagsOf(buffer, tagger)
  +                |> Set.ofSeq
  +                |> assertEqual
  +                    (set [ (5, 22) => (5, 28); (6, 22) => (6, 28) ]))
  +
  
positive.code:         testEventTrigger tagger.TagsChanged "Timed out before tags changed" timeout
              (fun () -> view.Caret.MoveTo(snapshotPoint view.TextSnapshot 4 7) |> ignore)
              (fun () -> 
                  helper.TagsOf(buffer, tagger)                 
                  |> Seq.toList
                  |> assertEqual
                       [ (4, 3) => (4, 8);
                         (2, 6) => (2, 11) ])
  
      [<Test>]
      let ``should not generate highlight usage tags for keywords or whitespaces``() = 
  
negative.code:         let buffer = createMockTextBuffer content fileName
          helper.SetUpProjectAndCurrentDocument(ExternalProjectProvider(projectFileName), fileName, content)
          let view = helper.GetView(buffer)
          let tagger = helper.GetTagger(buffer, view)
          testEventTrigger tagger.TagsChanged "Timed out before tags changed" timeout
              (fun () -> view.Caret.MoveTo(snapshotPoint view.TextSnapshot 4 8) |> ignore)
              (fun () -> 
                  helper.TagsOf(buffer, tagger)
                  |> Set.ofSeq
                  |> assertEqual
                      (set [ (4, 6) => (4, 12); (5, 9) => (5, 15) ]))
  
      [<Test; Category "AppVeyorLongRunning">]
      let ``should generate highlight usage tags for multi-project symbols``() = 
  