anchor.diff:              (fun () -> view.Caret.MoveTo(snapshotPoint view.TextSnapshot 3 1) |> ignore)
               (fun () -> 
                   helper.TagsOf(buffer, tagger)
  -                |> Seq.toList
  -                |> assertEqual
  -                     [ (3, 1) => (3, 1);
  -                       (2, 5) => (2, 5) ])
  +                |> Set.ofSeq
  +                |> assertEqual
  +                     (set [ (3, 1) => (3, 1);
  +                            (2, 5) => (2, 5) ]))
   
       [<Test>]
       let ``should not generate duplicated highlight usage tags for generic types``() = 
  
positive.code:         testEventTrigger tagger.TagsChanged "Timed out before tags changed" timeout
              (fun () -> view.Caret.MoveTo(snapshotPoint view.TextSnapshot 2 7) |> ignore)
              (fun () -> 
                  helper.TagsOf(buffer, tagger)                 
                  |> Seq.toList
                  |> assertEqual
                       [ (2, 6) => (2, 20);
                         (4, 3) => (4, 8) ])
  
      [<Test>]
      let ``should generate correct tags for attributes from usage``() = 
  
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``() = 
  