anchor.diff:    if Pos('http', URL) <> 1 then URL := 'http://127.0.0.1' + URL;
   
     IdHTTP.Get(URL, [405]);
  -  CheckEquals(405, IdHTTP.ResponseCode);
  +  CheckEquals(405, IdHTTP.ResponseCode, msg);
   end;
   
   procedure THTTPTestCase.CheckGETResponse500(URL, msg: string);
  
positive.code:   if Pos('http', URL) <> 1 then URL := 'http://127.0.0.1' + URL;
  
    IdHTTP.Get(URL, [404]);
    CheckEquals(404, IdHTTP.ResponseCode);
  end;
  
  procedure THTTPTestCase.CheckGETResponse405(URL, msg: string);
  
negative.code:   if Pos('http', URL) <> 1 then URL := 'http://127.0.0.1' + URL;
  
    IdHTTP.Get(URL, [500]);
    CheckEquals(500, IdHTTP.ResponseCode, msg);
  end;
  
  procedure THTTPTestCase.CheckGETResponseContains(Expected: string; URL: string = ''; msg: string = '');
  