File tree Expand file tree Collapse file tree 1 file changed +4
-0
lines changed
Expand file tree Collapse file tree 1 file changed +4
-0
lines changed Original file line number Diff line number Diff 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;
381383end ;
382384
385+ { $IF not defined(WIN64) or defined(DELPHIXE4_UP)}
383386procedure TParameterMatchingTests.TestMethod ;
384387var
385388 mock: Mock<IMockTest>;
@@ -392,6 +395,7 @@ procedure TParameterMatchingTests.TestMethod;
392395 mock.Received.TestMethod(nil );
393396 Pass;
394397end ;
398+ { $IFEND}
395399
396400{ $IFDEF DELPHIX_SYDNEY_UP}
397401procedure TParameterMatchingTests.TestMRecord ;
You can’t perform that action at this time.
0 commit comments