From 16f47fbee34798cfd86c5ebc18f3fe0ee4da1f92 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Fri, 16 Aug 2019 15:43:09 +0000
Subject: [PATCH] * explicitely ignore the TestIntfMethods test if
 TVirtualInterface is not supported

git-svn-id: trunk@42710 -
---
 packages/rtl-objpas/tests/tests.rtti.impl.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/tests/tests.rtti.impl.pas b/packages/rtl-objpas/tests/tests.rtti.impl.pas
index ff94630f8c..94fd71b81a 100644
--- a/packages/rtl-objpas/tests/tests.rtti.impl.pas
+++ b/packages/rtl-objpas/tests/tests.rtti.impl.pas
@@ -569,7 +569,7 @@ begin
     intf := TVirtualInterface.Create(PTypeInfo(TypeInfo(ITestInterface)), {$ifdef fpc}@{$endif}OnHandleIntfMethod) as ITestInterface;
   except
     on e: ENotImplemented do
-      Exit;
+      Ignore('TVirtualInterface not supported for ' + {$I %FPCTARGETCPU%} + '-' + {$I %FPCTARGETOS%});
   end;
   Check(Assigned(intf), 'ITestInterface instance is Nil');