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