anchor.diff:    path : TMXmlElement;
     i : integer;
   begin
  -  tests := TMXmlParser.ParseFile('C:\work\fhirserver\reference-platform\r4\tests\xpath-parser-tests.xml', [xpDropWhitespace, xpDropComments]);
  +  tests := TMXmlParser.ParseFile('C:\work\org.hl7.fhir\build\tests\xml\xpath-parser-tests.xml', [xpDropWhitespace, xpDropComments]);
     try
       i := 0;
       path := tests.document.first;
  
positive.code:   i : integer;
    s : String;
  begin
    tests := TMXmlParser.ParseFile('C:\work\fhirserver\tests\xml-patch-tests.xml', [xpResolveNamespaces]);
    try
      test := tests.document.first;
      i := 0;
  
negative.code: 
  procedure TXPathParserTests.setup;
  begin
    tests := TMXmlParser.ParseFile('C:\work\org.hl7.fhir\build\tests\xml\xpath-parser-tests.xml', [xpDropWhitespace, xpDropComments]);
    functionNames := TStringList.Create;
  end;
  
  