Delphi Mocks is a simple mocking framework for Delphi XE2 or later. It makes use of RTTI features that are only available in Delphi XE2. See the example at the bottom of the space for a complete explanation.
To match expectations or behavior there is extended parameter matching.
functionIsAny<T>() : T ;functionMatches<T>(const predicate: TPredicate<T>) : T;functionIsNotNil<T> : T; overload;functionIsNotNil<T>(const comparer: IEqualityComparer<T>) : T; overload;functionIsEqualTo<T>(constvalue : T) : T; overload;functionIsEqualTo<T>(constvalue : T;const comparer: IEqualityComparer<T>) : T; overload;functionIsInRange<T>(const fromValue : T;const toValue : T) : T;functionIsIn<T>(const values : TArray<T>) : T; overload;functionIsIn<T>(const values : TArray<T>;const comparer: IEqualityComparer<T>) : T; overload;functionIsIn<T>(const values : IEnumerable<T>) : T; overload;functionIsIn<T>(const values : IEnumerable<T>;const comparer: IEqualityComparer<T>) : T; overload;functionIsNotIn<T>(const values : TArray<T>) : T; overload;functionIsNotIn<T>(const values : TArray<T>;const comparer: IEqualityComparer<T>) : T; overload;functionIsNotIn<T>(const values : IEnumerable<T>) : T; overload;functionIsNotIn<T>(const values : IEnumerable<T>;const comparer: IEqualityComparer<T>) : T; overload;functionIsRegex(const regex : string;const options : TRegExOptions = []) : string;functionAreSamePropertiesThat<T>(constValue: T): T;functionAreSameFieldsThat<T>(constValue: T): T;functionAreSameFieldsAndPropertiedThat<T>(constValue: T): T;
Usage is easy:
mock.Setup.Expect.Once.When.SimpleMethod(It0.IsAny<Integer>, It1.IsAny<String>); mock.Setup.WillReturn(3).When.SimpleFunction(It0.IsEqualTo<String>('hello'));Some more attention should be payed for matching classes. Usage of.IsAny<TMyClass> will not work as might be expected, becausenil (which is the default return value ofIsAny<T>) is always a good match. Therefore the following setup will fail on the second line, because the framework will think that there is already behavior defined (in the first line).
mock.Setup.Expect.Never.When.ExtendedMethod(It0.IsAny<TMyClass>); mock.Setup.Expect.Never.When.ExtendedMethod(It0.IsAny<TMyOtherClass>);
This can easily be solved by using.IsNotNil<TMyClass>:
mock.Setup.Expect.Never.When.ExtendedMethod(It0.IsNotNil<TMyClass>); mock.Setup.Expect.Never.When.ExtendedMethod(It0.IsNotNil<TMyOtherClass>);
unit Delphi.Mocks.Examples.Interfaces;interfaceuses SysUtils, DUnitX.TestFramework, Delphi.Mocks;type{$M+} TSimpleInterface =Interface ['{4131D033-2D80-42B8-AAA1-3C2DF0AC3BBD}']procedureSimpleMethod;end; TSystemUnderTestInf =Interface ['{5E21CA8E-A4BB-4512-BCD4-22D7F10C5A0B}']procedureCallsSimpleInterfaceMethod;end;{$M-} TSystemUnderTest =class(TInterfacedObject, TSystemUnderTestInf)private FInternalInf : TSimpleInterface;publicconstructor Create(const ARequiredInf: TSimpleInterface);procedureCallsSimpleInterfaceMethod;end; TMockObjectTests =classpublishedprocedureSimple_Interface_Mock;end;implementationuses System.Rtti;{ TMockObjectTests}procedureTMockObjectTests.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}procedureTSystemUnderTest.CallsSimpleInterfaceMethod;begin FInternalInf.SimpleMethod;end;constructor TSystemUnderTest.Create(const ARequiredInf: TSimpleInterface);begin FInternalInf := ARequiredInf;end;end.