anchor.diff:    Delphi.Mocks.Helpers;
   
   { TExpectation }
  +
  +procedure TExpectation.AfterConstruction;
  +begin
  +  inherited;
  +  CheckExpectationMet;
  +end;
   
   function TExpectation.ArgsToString: string;
   var
  
positive.code: procedure TExpectation.RecordHit;
  begin
    Inc(FHitCount);
    case FExpectationType of
      Once,
      OnceWhen: FExpectationMet := FHitCount = 1;
      Never,
      NeverWhen: FExpectationMet := False;
      AtLeastOnce,
      AtLeastOnceWhen: FExpectationMet := FHitCount >= 1;
      AtLeast,
  
negative.code:     function GetExpectationMet : boolean;
      function Match(const Args : TArray<TValue>) : boolean;
      procedure RecordHit;
      procedure CheckExpectationMet;
      function Report : string;
      function ArgsToString : string;
      procedure CopyArgs(const Args: TArray<TValue>);
  