anchor.diff:      [<Test>]
       let ``validates content of client element`` () =
           TestDelegate(fun _ -> parseHeader "<xrd:client />" |> ignore)
  -        |> should (throwWithMessage "Element `http://x-road.eu/xsd/xroad.xsd:client` cannot be empty.") typeof<XRoadException>
  +        |> should (throwWithMessage "Element `{http://x-road.eu/xsd/xroad.xsd}client` cannot be empty.") typeof<XRoadException>
   
       [<Test>]
       let ``validates objectType attribute of client element`` () =
           TestDelegate(fun _ -> parseHeader @"<xrd:client></xrd:client>" |> ignore)
  -        |> should (throwWithMessage "Element `http://x-road.eu/xsd/xroad.xsd:client` must have attribute `http://x-road.eu/xsd/identifiers:objectType` value.") typeof<XRoadException>
  +        |> should (throwWithMessage "Element `{http://x-road.eu/xsd/xroad.xsd}client` must have attribute `{http://x-road.eu/xsd/identifiers}objectType` value.") typeof<XRoadException>
   
       [<Test>]
       let ``validates xRoadInstance subelement of client element`` () =
           TestDelegate(fun _ -> parseHeader @"<xrd:client id:objectType=""MEMBER""></xrd:client>" |> ignore)
  -        |> should (throwWithMessage "Element `http://x-road.eu/xsd/xroad.xsd:client` must have child element `http://x-road.eu/xsd/identifiers:xRoadInstance`.") typeof<XRoadException>
  +        |> should (throwWithMessage "Element `{http://x-road.eu/xsd/xroad.xsd}client` must have child element `{http://x-road.eu/xsd/identifiers}xRoadInstance`.") typeof<XRoadException>
   
       [<Test>]
       let ``validates xRoadInstance subelement of client element with unknown element`` () =
           TestDelegate(fun _ -> parseHeader @"<xrd:client id:objectType=""MEMBER""><x /></xrd:client>" |> ignore)
  -        |> should (throwWithMessage "Element `http://x-road.eu/xsd/xroad.xsd:client` must have child element `http://x-road.eu/xsd/identifiers:xRoadInstance`.") typeof<XRoadException>
  +        |> should (throwWithMessage "Element `{http://x-road.eu/xsd/xroad.xsd}client` must have child element `{http://x-road.eu/xsd/identifiers}xRoadInstance`.") typeof<XRoadException>
   
       [<Test>]
       let ``validates memberClass subelement of client element`` () =
           TestDelegate(fun _ -> parseHeader @"<xrd:client id:objectType=""MEMBER""><id:xRoadInstance /></xrd:client>" |> ignore)
  -        |> should (throwWithMessage "Element `http://x-road.eu/xsd/xroad.xsd:client` must have child element `http://x-road.eu/xsd/identifiers:memberClass`.") typeof<XRoadException>
  +        |> should (throwWithMessage "Element `{http://x-road.eu/xsd/xroad.xsd}client` must have child element `{http://x-road.eu/xsd/identifiers}memberClass`.") typeof<XRoadException>
   
       [<Test>]
       let ``validates memberCode subelement of client element`` () =
           TestDelegate(fun _ -> parseHeader @"<xrd:client id:objectType=""MEMBER""><id:xRoadInstance /><id:memberClass /></xrd:client>" |> ignore)
  -        |> should (throwWithMessage "Element `http://x-road.eu/xsd/xroad.xsd:client` must have child element `http://x-road.eu/xsd/identifiers:memberCode`.") typeof<XRoadException>
  +        |> should (throwWithMessage "Element `{http://x-road.eu/xsd/xroad.xsd}client` must have child element `{http://x-road.eu/xsd/identifiers}memberCode`.") typeof<XRoadException>
   
       [<Test>]
       let ``validates invalid subelement of client element`` () =
           TestDelegate(fun _ -> parseHeader @"<xrd:client id:objectType=""MEMBER""><id:xRoadInstance /><id:memberClass /><id:memberCode /><x /></xrd:client>" |> ignore)
  -        |> should (throwWithMessage "Unexpected element `http://schemas.xmlsoap.org/soap/envelope/:x` in element `http://x-road.eu/xsd/xroad.xsd:client`.") typeof<XRoadException>
  +        |> should (throwWithMessage "Unexpected element `{http://schemas.xmlsoap.org/soap/envelope/}x` in element `{http://x-road.eu/xsd/xroad.xsd}client`.") typeof<XRoadException>
   
       [<Test>]
       let ``validates presence of id element`` () =
  
positive.code:     [<Test>]
      let ``emtpy representedParty element`` () =
          TestDelegate(fun _ -> parseHeader (minimalValidHeader @"<repr:representedParty />") |> ignore)
          |> should (throwWithMessage "Element `http://x-road.eu/xsd/representation.xsd:representedParty` cannot be empty.") typeof<XRoadException>
  
      [<Test>]
      let ``element partyCode is required for representedParty element`` () =
          TestDelegate(fun _ -> parseHeader (minimalValidHeader @"<repr:representedParty></repr:representedParty>") |> ignore)
          |> should (throwWithMessage "Element `http://x-road.eu/xsd/representation.xsd:representedParty` must have child element `http://x-road.eu/xsd/representation.xsd:partyCode`.") typeof<XRoadException>
  
      [<Test>]
      let ``wrong element order for representedParty element`` () =
          TestDelegate(fun _ -> parseHeader (minimalValidHeader @"<repr:representedParty><repr:partyCode /><repr:partyClass /></repr:representedParty>") |> ignore)
          |> should (throwWithMessage "Unexpected element `http://x-road.eu/xsd/representation.xsd:partyClass` in element `http://x-road.eu/xsd/representation.xsd:representedParty`.") typeof<XRoadException>
  
      [<Test>]
      let ``can handle missing optional element for representedParty element`` () =
  
negative.code:     [<Test>]
      let ``optional parameter at wrong position for service element`` () =
          TestDelegate(fun _ -> parseHeader (minimalValidHeader @"<xrd:service id:objectType=""SERVICE""><id:xRoadInstance /><id:memberClass /><id:memberCode /><id:serviceCode /><id:subsystemCode /></xrd:service>") |> ignore)
          |> should (throwWithMessage "Unexpected element `{http://x-road.eu/xsd/identifiers}subsystemCode` in element `{http://x-road.eu/xsd/xroad.xsd}service`.") typeof<XRoadException>
  
      [<Test>]
      let ``read simple optional element values`` () =
  