Skip to content

Commit 19dd7da

Browse files
sglienkevincentparrett
authored andcommitted
exclude test for Win64 on XE2 and XE3 - they don't support dynamic invokation of method with parameter of kind tkMethod
1 parent 15d1c17 commit 19dd7da

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

Tests/Source/Core/Spring.Tests.Mocking.pas

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -51,7 +51,9 @@ TParameterMatchingTests = class(TTestCase)
5151
procedure TestEnum;
5252
procedure TestSet;
5353
procedure TestClass;
54+
{$IF not defined(WIN64) or defined(DELPHIXE4_UP)}
5455
procedure TestMethod;
56+
{$IFEND}
5557
{$IFDEF DELPHIX_SYDNEY_UP}
5658
procedure TestMRecord;
5759
{$ENDIF}
@@ -380,6 +382,7 @@ procedure TParameterMatchingTests.TestEnum;
380382
Pass;
381383
end;
382384

385+
{$IF not defined(WIN64) or defined(DELPHIXE4_UP)}
383386
procedure TParameterMatchingTests.TestMethod;
384387
var
385388
mock: Mock<IMockTest>;
@@ -392,6 +395,7 @@ procedure TParameterMatchingTests.TestMethod;
392395
mock.Received.TestMethod(nil);
393396
Pass;
394397
end;
398+
{$IFEND}
395399

396400
{$IFDEF DELPHIX_SYDNEY_UP}
397401
procedure TParameterMatchingTests.TestMRecord;

0 commit comments

Comments
 (0)