anchor.diff:    i : integer;
     s : String;
   begin
  -  tests := TMXmlParser.ParseFile('C:\work\fhirserver\tests\xml-patch-tests.xml', [xpResolveNamespaces]);
  +  tests := TMXmlParser.ParseFile('C:\work\org.hl7.fhir\build\tests\patch\xml-patch-tests.xml', [xpResolveNamespaces]);
     try
       test := tests.document.first;
       i := 0;
  
positive.code: 
  procedure TXPathParserTests.setup;
  begin
    tests := TMXmlParser.ParseFile('C:\work\fhirserver\reference-platform\r4\tests\xpath-parser-tests.xml', [xpDropWhitespace, xpDropComments]);
    functionNames := TStringList.Create;
  end;
  
  
negative.code: 
  procedure TXPathEngineTests.setup;
  begin
    tests := TMXmlParser.ParseFile('C:\work\org.hl7.fhir\build\tests\xml\xpath-tests.xml', [xpResolveNamespaces]);
    tests.NamespaceAbbreviations.AddOrSetValue('f', 'http://hl7.org/fhir');
    tests.NamespaceAbbreviations.AddOrSetValue('h', 'http://www.w3.org/1999/xhtml');
    mstests := TMsXmlParser.Parse('C:\work\org.hl7.fhir\build\tests\xml\xpath-tests.xml');
    mstests.setProperty('SelectionNamespaces','xmlns:f=''http://hl7.org/fhir'' xmlns:h=''http://www.w3.org/1999/xhtml''');
  end;
  
  