Delphi Mocks

Delphi Mocks

Delphi Mocks ist ein einfaches Spott -Framework für Delphi XE2 oder höher. Es verwendet RTTI -Funktionen, die nur in Delphi XE2 erhältlich sind. In dem Beispiel am unteren Rand des Raums finden Sie eine vollständige Erklärung.

Parameteranpassung

Um die Erwartungen oder das Verhalten zu entsprechen, gibt es eine verlängerte Parameterabstimmung.

    function IsAny <T>() : T ;
    function Matches <T>( const predicate: TPredicate<T>) : T;
    function IsNotNil <T> : T; overload;
    function IsNotNil <T>( const comparer: IEqualityComparer<T>) : T; overload;
    function IsEqualTo <T>( const value : T) : T; overload;
    function IsEqualTo <T>( const value : T; const comparer: IEqualityComparer<T>) : T; overload;
    function IsInRange <T>( const fromValue : T; const toValue : T) : T;
    function IsIn <T>( const values : TArray<T>) : T; overload;
    function IsIn <T>( const values : TArray<T>; const comparer: IEqualityComparer<T>) : T; overload;
    function IsIn <T>( const values : IEnumerable<T>) : T; overload;
    function IsIn <T>( const values : IEnumerable<T>; const comparer: IEqualityComparer<T>) : T; overload;
    function IsNotIn <T>( const values : TArray<T>) : T; overload;
    function IsNotIn <T>( const values : TArray<T>; const comparer: IEqualityComparer<T>) : T; overload;
    function IsNotIn <T>( const values : IEnumerable<T>) : T; overload;
    function IsNotIn <T>( const values : IEnumerable<T>; const comparer: IEqualityComparer<T>) : T; overload;
    function IsRegex ( const regex : string; const options : TRegExOptions = []) : string;
    function AreSamePropertiesThat <T>( const Value : T): T;
    function AreSameFieldsThat <T>( const Value : T): T;
    function AreSameFieldsAndPropertiedThat <T>( const Value : T): T;

Die Verwendung ist einfach:

  mock.Setup.Expect.Once.When.SimpleMethod(It0.IsAny<Integer>, It1.IsAny<String>);
  mock.Setup.WillReturn( 3 ).When.SimpleFunction(It0.IsEqualTo<String>( ' hello ' ));

Klassenübereinstimmung

Für den Übereinstimmungskursen sollte noch etwas mehr Aufmerksamkeit geschenkt werden. Die Verwendung von .IsAny<TMyClass> funktioniert nicht wie erwartet, da nil (was der Standard -Rückgabewert von IsAny<T> ) immer gut passt. Daher fällt das folgende Setup in der zweiten Zeile fehl, da das Framework der Meinung ist, dass bereits ein Verhalten definiert ist (in der ersten Zeile).

  mock.Setup.Expect.Never.When.ExtendedMethod(It0.IsAny<TMyClass>);
  mock.Setup.Expect.Never.When.ExtendedMethod(It0.IsAny<TMyOtherClass>);

Dies kann leicht gelöst werden, indem .IsNotNil<TMyClass> verwendet wird:

  mock.Setup.Expect.Never.When.ExtendedMethod(It0.IsNotNil<TMyClass>);
  mock.Setup.Expect.Never.When.ExtendedMethod(It0.IsNotNil<TMyOtherClass>);

Beispiel

 unit Delphi.Mocks.Examples.Interfaces;

interface

uses
  SysUtils,
  DUnitX.TestFramework,
  Delphi.Mocks;

type
  { $M+ }
  TSimpleInterface = Interface
    [ ' {4131D033-2D80-42B8-AAA1-3C2DF0AC3BBD} ' ]
    procedure SimpleMethod ;
  end ;

  TSystemUnderTestInf = Interface
    [ ' {5E21CA8E-A4BB-4512-BCD4-22D7F10C5A0B} ' ]
    procedure CallsSimpleInterfaceMethod ;
  end ;
  { $M- }

  TSystemUnderTest = class (TInterfacedObject, TSystemUnderTestInf)
  private
    FInternalInf : TSimpleInterface;
  public
    constructor Create( const ARequiredInf: TSimpleInterface);
    procedure CallsSimpleInterfaceMethod ;
  end ;

  TMockObjectTests = class
  published
    procedure Simple_Interface_Mock ;
  end ;

implementation

uses
  System.Rtti;

{ TMockObjectTests }

procedure TMockObjectTests.Simple_Interface_Mock ;
var
  mock : TMock<TSimpleInterface>;
  sutObject : TSystemUnderTestInf;
begin
  // SETUP: Create a mock of the interface that is required by our system under test object.
  mock := TMock<TSimpleInterface>.Create;

  // SETUP: Add a check that SimpleMethod is called atleast once.
  mock.Setup.Expect.AtLeastOnce.When.SimpleMethod;

  // SETUP: Create the system under test object passing an instance of the mock interface it requires.
  sutObject := TSystemUnderTest.Create(mock.Instance);

  // TEST: Call CallsSimpleInterfaceMethod on the system under test.
  sutObject.CallsSimpleInterfaceMethod;

  // VERIFY: That our passed in interface was called at least once when CallsSimpleInterfaceMethod was called.
  mock.Verify( ' CallsSimpleInterfaceMethod should call SimpleMethod ' );
end ;

{ TSystemUnderTest }

procedure TSystemUnderTest.CallsSimpleInterfaceMethod ;
begin
  FInternalInf.SimpleMethod;
end ;

constructor TSystemUnderTest.Create( const ARequiredInf: TSimpleInterface);
begin
  FInternalInf := ARequiredInf;
end ;

end .