anchor.diff:          |> ignoreWarnings
           |> compile
           |> shouldFail
  -        |> withErrorCode 101
  -        |> withErrorMessage "This construct is deprecated. Use B instead"
  -
  +        |> withDiagnostics [
  +            (Error 101, Line 7, Col 9, Line 7, Col 18, "This construct is deprecated. Use B instead")
  +        ]
   
       [<Fact>]
       let ``Obsolete attribute is taken into account when used on a record and member invocation`` () =
           Fsx """
   open System
  -
   
   [<Obsolete("Use B instead", true)>]
   type C = 
  
positive.code:         |> ignoreWarnings
          |> compile
          |> shouldFail
          |> withErrorCodes [ 101; 101]
          |> withErrorMessages [ "This construct is deprecated. Use B instead"; "This construct is deprecated. Use B instead"]
  
  
      [<Fact>]
      let ``Obsolete attribute is taken into account when used on struct type and invoking the member`` () =
  
negative.code:         |> ignoreWarnings
          |> compile
          |> shouldFail
          |> withDiagnostics [
              (Error 101, Line 9, Col 1, Line 9, Col 9, "This construct is deprecated. Use B instead")
          ]  
          
      [<Fact>]
      let ``Obsolete attribute is taken into account when used on an enum and invocation`` () =
  