anchor.diff:  procedure TExpectation.RecordHit;
   begin
     Inc(FHitCount);
  +  CheckExpectationMet;
  +end;
  +
  +procedure TExpectation.CheckExpectationMet;
  +begin
     case FExpectationType of
       Once,
       OnceWhen: FExpectationMet := FHitCount = 1;
       Never,
  -    NeverWhen: FExpectationMet := False;
  +    NeverWhen: FExpectationMet := FHitCount = 0;
       AtLeastOnce,
       AtLeastOnceWhen: FExpectationMet := FHitCount >= 1;
       AtLeast,
  
positive.code:   Delphi.Mocks.Helpers;
  
  { TExpectation }
  
  function TExpectation.ArgsToString: string;
  var
  
negative.code: begin
    Create(AMethodName);
    FExpectationType := TExpectationType.Never;
  end;
  
  constructor TExpectation.CreateNeverWhen(const AMethodName : string; const Args: TArray<TValue>);
  begin
    CreateWhen(AMethodName,Args);
    FExpectationType := TExpectationType.NeverWhen;
  end;
  
  constructor TExpectation.CreateOnce(const AMethodName : string );
  